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FOREWORD 

This manual contains the information necessary to understand and use the P&T-488 
interface as well as provide instruction in the basic concepts of the IEEE-488 bus. 

Those who are already familiar with the IEEE-488 bus (also known as the HP-IB, GPIB and 
ASCII bus) and the concepts of a Talker, Listener and Controller may skip to page MSOFT-1. 
It is recommended that those who are not acquainted with Talkers, Listeners and Controllers 
read the chapter "The IEEE-488 Bus" first. 

The P&T-488 interface consists of two major components: the P&T-488 interface board and 
the P&T-488 to Microsoft Basic interface software package. The software package is actually 
two programs: MSOFT.COM and MSOFT.REL. MS0FT.COM is an object code program to be 
used with interpreter Basic, and MSOFT.REL is a linkable module to be used with compiler 
Basic. Also included is an object code program (488TST81) which performs a complete functional 
test of the P&T-488 interface board. Additional programs are provided as examples of how one 
can use the P&T-488 interface to communicate with 488 devices. Several utility programs have 
also been provided. One which is especially useful is called BUSMON. It displays all IEEE^88 
bus transactions on the console and can also be used to send data or commands over the bus. 
All programs are provided on a single density, non-system diskette recorded in CP/Mf format. 

Even though MSOFT is designed to be used with Microsoft Basic, other languages can also 
successfully use MSOFT. Included in this manual and on the disk are sample programs written 
in assembler, Fortran, Pascal and C. 



t CP/M is a trademark of Digital Research 
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- CAST OF CHARACTERS - 

The 488 bus is populated by three major types of devices. One is the Controller, 
which sends commands over the bus to other devices. Another is the Talker, which sends 
data over the bus to one or more devices of the third kind: the Listeners. The Listeners 
and Talker communicate with a handshake on each data transfer, and the communication 
proceeds at the maximum rate allowed by the Talker and the slowest Listener. This 
communication is completely asynchronous and may be interrupted at specific points in the 
handshake cycle without causing any loss of data. 

It can be useful to liken the bus to a meeting which has a chairman (Controller), a 
recognized speaker (Talker) and an audience (Listeners). As is true of most meetings, 
some of the audience is paying no attention whatever to the proceedings (some of the 
devices on the bus may be Idle), while some of those that are listening want to interrupt 
the Talker. Sometimes a member of the audience is audacious enough to indicate that it 
should be the chairman. The 488 bus specification allows the Controller to designate 
another device as his successor. 

It is the Controller's responsibility to make sure that communication takes place in an 
orderly manner: it is he that says who can talk and who should listen at any given time. 
It is also the Controller that takes care of such matters as telling everyone to shut up 
(Universal Untalk UNT command), everyone to go back to their desks (Interface Clear 
IFC), or listen to someone trying to gain the floor (Service Request SRQ). Even though 
the Controller has (in theory) complete command over everyone else, problems can arise. 
One possible problem is that the Controller has made the unwise choice of telling more than 
one device that it can be a Talker, which results in sheer bedlam. Another way for the 
Controller to lose control of the situation is if a Talk Only (ton) device is placed on the 
bus. Some Talk Only devices are notoriously deaf and don't pay any attention to 
anybody, even the Controller! 

A Talker, on the other hand, leads a simple life. It does not concern itself with 
disputes over who has the right to be heard, and when. It only puts data on the bus, 
waits until the slowest listener indicates it is ready for data, says the data is valid, waits 
until the slowest Listener says it has accepted the data, then says that it is removing the 
data and follows up on its threat. About the only thing that bothers a Talker is to find 
that no one is listening to him. Most get really upset and let the Controller know about 
this impolite state of affairs. Talkers that don*t complain have a tendency to sit there 
with their mouths open, caught in mid-word. Either way, no communication is taking place 
and this is not considered a desirable state of affairs. 

Listeners can be a little more complicated. They let the Talker know when they are 
ready for another word and when they have received it. Some also let the Controller 
know that they want some special attention. The Controller waits until the Talker can be 
interrupted so that no Listener is deprived of the latest bit of wisdom imparted by the 
Talker. Then the Controller tries to find out which device wants the attention. Two 
ways to do this are Serial Poll, in which each device is allowed to speak (one at a time) 
and Parallel Poll, which allows several devices to simultaneously inform the Controller of 
their need by a bit pattern each puts onto the eight data lines. 
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- HARDWARE OVERVIEW - 



The 488 bus is made up of 16 signal lines: eight are used for data, three are 
needed for the interlocking handshake used to communicate the data, and the remaining 
five are used for bus management* Since there are eight data lines, a full eight bit 
byte can be communicated in each handshake cycle. This is what is meant by the 
phrase "bit parallel - byte serial" transmission. It is an alternative to the 
slower RS 232C standard, in which only one data line is used (and which is referred 
to as being a "bit serial" interface standard). 
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There are three basic concepts which are important to an understanding of how 
the hardware of the 488 bus works. The first is that only one of two voltages is 
allowed on each line, and the lower allowed voltage is ground. The second is that 
the 488 bus uses negative true logic, which means that the lower of the two voltage 
levels has the value TRUE, while the higher voltage has the value FALSE. The third 
is that the bus uses open-collector drivers. An open-collector driver can be thought 
of as a switch with one terminal connected to the line and the other to ground. When 
the driver is ON, it is as if the switch is closed, and so connects the line to 
ground. If the driver is OFF, it is as if the switch is open, so no connection is 
made between the line and ground. There is a resistor connecting the line to a 
voltage supply, so the voltage on the line rises to the higher of the two allowed 
levels if the line is not grounded. Since the 488 uses negative true logic, a line 
is given the value TRUE by turning the open-collector driver ON, or the value 
FALSE by turning the driver OFF. The phrases "active true" and "passive 
false" are used to describe this system; active true because the line must be 
actively connected to ground to impress a value of true on it, passive false because 
no action is needed (no connection is made) to make the value of the line false. 
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Each 488 device has one open-collector driver for each 488 line that it uses. More 
than one open-collector driver (that is, more than one 488 device) can be connected to 
each line. If all drivers are off the voltage on the line will be high, which means it has 
the value false. However, if one or more open-collector drivers are on, the line's 
voltage will be low, and it will have the value true. This is called a "wire-or" system 
because the logical value of the line is the logical OR of the logical values impressed on it 
by the several open-collector drivers connected to it. Thus each 488 device sends a true 
to the line by turning on its driver, or a false by turning the driver off. Note that if 
any device asserts a particular line true, that line will have the value true. However, if 
a device asserts a false (high) signal, it will be overridden by any device which asserts a 
true. 

The eight data lines are named DI01 through DI08 (DIO stands for Data 
Input/ Output). The least significant bit appears on DI01, the most significant on DI08. 
One point of possible confusion is that the data bits in an S-100 system are numbered 
through 7, while the 488 data lines are numbered 1 through 8. Another is that S-100 
systems assume positive true logic (high means TRUE, low means FALSE). Just remember 
that S-100 data bit 7 appears on DI08, etc. and a 488 byte is the one's complement of 
an S-100 byte and everything should be all right. 

The proper IEEE title for the three handshake lines is "Data Byte Transfer Control" 
lines. They are individually known as follows: 

OAV (Data Valid) -when true the data on the eight data lines is valid. 
NRFD (Not Ready For Data) - when true the 488 devices are not ready to accept data. 
NDAC (Not Data Accepted) - when true the devices have not yet accepted the data. 

The remaining five lines are known as the "General Interface Management" lines. 
They are as follows: 

IFC (Interface Clear) - place all 488 devices in their default state. 

ATN (Attention) - used to distinguish between a Controller and a Talker. 
SRQ (Service Request) - indicates that a device needs attention. 
REN (Remote Enable) - allows 488 devices to be programmed either by their local 

controls (front panel switches, etc.), or by information sent over the 488 bus. 
EOI (End or Identify) - indicates the end of a string if ATN is false, otherwise it 

indicates a Parallel Poll is in progress. 



- BYTE COMMUNICATION - 

Byte communication requires that there be a device which is generating the byte to 
be communicated (the "source") and one or more devices which receive the byte (the 
"acceptors"). The Source and Acceptors communicate by use of an interlocking handshake 
using the three Data Byte Transfer Control lines (DAV, NRFD and NDAC). The byte 
itself is sent on the eight data lines (DI01 through DI08). The handshake is schematized 
in the following flow chart. 
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- A More Detailed Look at the 488 Inhabitants - 

A TALKER is a device which sends data over the 488 interface to other devices. 
There are two major types and various subtypes. One major type is the Talk Only (ton), 
which may be used in a 488 system which has no Controller. This device always talks, 
and so it must be the only device which can talk. The other major type must be told 
when to talk ("addressed to talk 11 ). A Controller is needed because it is the only kind of 
488 device that is allowed to address Talkers and Listeners. All Talkers use the Source 
Handshake (SH) function to send a message over the 488 bus. 

A LISTENER is a device which receives data over the 488 interface. As with the 
Talker, there are two major types: Listen Only (Ion) and addressed Listener. A Listen 
Only device always listens to the 488 bus, while an addressed Listener listens only when 
the Controller tells it to. The Listen Only device can operate in a 488 system which does 
not have a Controller since it does not need to be told what to do and when to do it. All 
Listeners use the Acceptor Handshake (AH) function to receive messages on the 488 bus. 

A CONTROLLER is a device which issues commands on the 488 bus. These include 
commands which are used to reset ail devices on the bus Interface Clear (IFC), indicate 
which device is to Talk (when the Controller relinquishes the bus) and which devices are to 
Listen (i.e. it sends the Talk and Listen addresses of those devices over the bus), 
perform a Poll of 488 devices (Serial Poll and Parallel Poll), and a myriad of other special 
functions. The commands fall into two general classifications: Uniline and Multiline. 
Each uniline command uses only one line out of the five General Interface Management 
lines. Examples of uniline messages are Remote Enable (REN), Interface Clear (IFC) and 
Parallel Poll. Multiline messages use the eight data (DI01-DI08) lines to issue the 
command. Examples of multiline messages include performing a Serial Poll and commanding 
488 devices to Talk or Listen. Multiline messages are sent using the Source Handshake 
(SH) function, just like a Talker. The way that a device determines whether it is hearing 
a Talker or the Controller is that the ATN (Attention) line is true (low) when the 
Controller is issuing a message, but false (high) when a Talker is saying something. The 
Controller is the device which controls the ATN line. Whenever ATN is true, all 
addressed Talkers shut up so that the Controller can say its piece. However, some Talk 
Only devices don't, and so they garble commands issued by the Controller. Generally 
speaking, a Talk Only device should be used only in a 488 system which has no Controller. 
Whenever the Controller passively asserts ATN false (lets it go high), the Talker (if any) 
begins to send its message. 



- MULTILINE COMMANDS - 

Telling a 488 device to Listen is one example of a multiline command. The 
Controller places the Listen address of the selected device on the data lines (DI01 through 
DI08) and then performs the Source Handshake (SH) function. In other words, it "speaks" 
the address while ATN is true (low). Whenever the Controller is active (that is, whenever 
ATN is true), all devices on the 488 bus interpret whatever is said (via the data lines and 
the Source Handshake function) as a command rather than data. ALL devices hear what is 
said by the Controller. They ALL execute the Acceptor Handshake function, without 
regard to whether they are normally a Talker, Listener or whatever. 
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Another example of a multiline command is the Serial Poll. The order of events is 
that the Controller sends out the Serial Poll Enable (SPE) command, which tells each 
device that when it is addressed as a Talker that it is to say either SBN (Status Byte - 
service Not requested) or SBA (Status Byte — service request Acknowledged). Those are 
the only two messages that are allowed. Then the Controller addresses each device as a 
Talker in turn and Listens to the response of each. To conclude a Serial Poll, the 
Controller sends the Serial Poll Disable (SPD) command so that any device later addressed 
as a Talker can speak data (instead of SBN or SBA). Finally, the Controller performs 
whatever service is needed, which is device dependent. 

- UNIL1NE COMMANDS - 

An example of a uniline command is Parallel Poll. Parallel Poll is both simpler and 
more complicated than Serial Poll. It is simpler because only one command is given 
(Identify IDY: the logical AND of ATN and EOI) and all devices respond at once. It is 
possibly more complicated in that it may be more difficult to sort out which device wants 
service. Whenever a 488 device receives the IDY message, it immediately places its 
Parallel Poll Response byte on the eight data lines. For systems of eight devices or less, 
it is common for each device to be assigned a unique bit which it asserts true when it 
needs service. For example, one device would have a Parallel Poll response byte in which 
bit 1 is true if it needs service, otherwise bit 1 is false, and bits 2 through 8 are always 
false. Another device would use bit 2 to indicate its need for service and all other bits 
would always be false in its response byte. A third device would use bit 3. When a 
Parallel Poll is performed, the response sensed by the Controller will be the logical OR of 
all the Parallel Poll Response bytes (due to the fact that the 488 bus is a wire-or 
system). If the response has bits 1 and 3 true, and all other bits falsa, it means that 
the first and third devices need service, while the second does not. 

If the 488 system uses more than eight devices, some alternate scheme must be used. 
One would be to have only eight devices respond to a Parallel Poll, and use Serial Poll on 
the remaining devices. Another scheme would be to have several devices share the same 
Parallel Poll Response byte, if the response to a Parallel Poll shows that at least one of 
the devices that shares a common response needs service, a Serial Poll can be ussd to 
find which ones they are. 



_6- 



P&T-488 Hardware Description 



- OVERVIEW - 

The P&T-488 has four read/write registers which appear as four input/output (I/O) 
ports to the S-100 host machine. The ports are addressed as four consecutive I/O ports 
with the first port address an integral multiple of 4 (0, 4, 8, 0C, . .., N*4, . .., FC). 
For ease of description these registers will be referred to as registers through 3, even 
though what is called register may be Port 0, 4, 8, ..., N*4, ..., FC. 

The addresses used by the P&T-488 are set by means of a DIP switch on the upper 
left corner of the interface board. All boards are set at the factory for I/O ports 7C 
through 7F Hex, and all software supplied by Pickles & Trout assumes these addresses. 
The address used by both the board and the software can be changed by the user. The 
addresses used by the software and the board must be the same. To change the addresses 
assumed by the software, refer to the instructions given with the program. 

To change the addresses used by the board, first note that the labels "A7" through 
"A2" appear to the left of the switch. Switches A2 through A7 are set according to the 
following table: 



id d r e s s 


A7 


A6 


A5 


A4 


A3 


A2 


(Hex) 














00-03 


ON 


ON 


ON 


ON 


ON 


ON 


04-07 


ON 


ON 


ON 


ON 


ON 


OFF 


08-0B 


ON 


ON 


ON , 


ON 


OFF 


ON 


0C-0F 


ON 


ON 


ON 


ON 


OFF 


OFF 


10-13 


ON 


ON 


ON 


OFF 


ON 


ON 


1 4-17 


ON 


ON 


ON 


OFF 


ON 


OFF 


1 8-1B 


ON 


ON 


ON 


OFF 


OFF 


ON 


1 C-1F 


ON 


ON 


ON 


OFF 


OFF 


OFF 


20-23 


ON 


ON 


OFF 


ON 


ON 


ON 


24-27 


ON 


ON 


OFF 


ON 


ON 


OFF 


28-2B 


ON 


ON 


OFF 


ON 


OFF 


ON 


2C-2F 


ON 


ON 


OFF 


ON 


OFF 


OFF 


30-33 


ON 


ON 


OFF 


OFF 


ON 


ON 


34-37 


ON 


ON 


OFF 


OFF 


ON 


OFF 


38-3B 


ON 


ON 


OFF 


OFF 


OFF 


ON 


3C-3F 


ON 


ON 


OFF 


OFF 


OFF 


OFF 


40-43 


ON 


OFF 


ON 


ON 


ON 


ON 


44-47 


ON 


OFF 


ON 


ON 


ON 


OFF 


48-4B 


ON 


OFF 


ON 


ON 


OFF 


ON 


4C-4F 


ON 


OFF 


ON 


ON 


OFF 


OFF 


50-53 


ON 


OFF 


ON 


OFF 


ON 


ON 


54-57 


ON 


OFF 


ON 


OFF 


ON 


OFF 


58-5B 


ON 


OFF 


ON 


OFF 


OFF 


ON 


5C-5F 


ON 


OFF 


ON 


OFF 


OFF 


OFF 


60-63 


ON 


OFF 


OFF 


ON 


ON 


ON 


64-67 


ON 


OFF 


OFF 


ON 


ON 


OFF 


68-6B 


ON 


OFF 


OFF 


ON 


OFF 


ON 
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Address 


A7 


A6 


A5 


A4 


A3 


A2 


(Hex) 














6C-6F 


ON 


OFF 


OFF 


ON 


OFF 


OFF 


70-73 


ON 


OFF 


OFF 


OFF 


ON 


ON 


74-7 7 


ON 


OFF 


OFF 


OFF 


ON 


OFF 


78-7B 


ON 


OFF 


OFF 


OFF 


OFF 


ON 


7C-7F 


ON 


OFF 


OFF 


OFF 


OFF 


OFF 


80-83 


OFF 


ON 


ON 


ON 


ON 


ON 


84-87 


OFF 


ON 


ON 


ON 


ON 


OFF 


88-8B 


OFF 


ON 


ON 


ON 


OFF 


ON 


8C-8F 


OFF 


ON 


ON 


ON 


OFF 


OFF 


9 0-93 


OFF 


ON 


ON 


OFF 


ON 


ON 


94-97 


OFF 


ON 


ON 


OFF 


ON 


OFF 


98-9B 


OFF 


ON 


ON 


OFF 


OFF 


ON 


9C-9F 


OFF 


ON 


ON 


OFF 


OFF 


OFF 


A0-A3 


OFF 


ON 


OFF 


ON 


ON 


ON 


A4-A7 


OFF 


ON 


OFF 


ON 


ON 


OFF 


A8-AB 


OFF 


ON 


OFF 


ON 


OFF 


ON 


AC-AF 


OFF 


ON 


OFF 


ON 


OFF 


OFF 


B0-B3 


OFF 


ON 


OFF 


OFF 


ON 


ON 


B4-B7 


OFF 


ON 


OFF 


OFF 


ON 


OFF 


B8-BB 


OFF 


ON 


OFF 


OFF 


OFF 


ON 


BC-BF 


OFF 


ON 


OFF 


OFF 


OFF 


OFF 


C0-C3 


OFF 


OFF 


ON 


ON 


ON 


ON 


C4-C7 


OFF 


OFF 


ON 


ON 


ON 


OFF 


C8-CB 


OFF 


OFF 


ON 


ON 


OFF 


ON 


CC-CF 


OFF 


OFF 


ON 


ON 


OFF 


OFF 


D0-D3 


OFF 


OFF 


ON 


OFF 


ON 


ON 


D4-D7 


OFF 


OFF 


ON 


OFF 


ON 


OFF 


D8-DB 


OFF 


OFF 


ON 


OFF 


OFF 


ON 


DC-DF 


OFF 


OFF 


ON 


OFF 


OFF 


OFF 


E0-E3 


OFF 


OFF 


OFF 


ON 


ON 


ON 


E4-E7 


OFF 


OFF 


OFF 


ON 


ON 


OFF 


E8-EB 


OFF 


OFF 


OFF 


ON 


OFF 


ON 


EC-EF 


OFF 


OFF 


OFF 


ON 


OFF 


OFF 


F0-F3 


OFF 


OFF 


OFF 


OFF 


ON 


ON 


F4-F7 


OFF 


OFF 


OFF 


OFF 


ON 


OFF 


F8-FB 


OFF 


OFF 


OFF 


OFF 


OFF 


ON 


FC-FF 


OFF 


OFF 


OFF 


OFF 


OFF 


OFF 



For example, to address the P&T-488 interface board to use I/O ports 7C through 
7F Hex, A7 must be ON and A2 through A6 OFF, 

The P&T-488 allows direct access to the 8 signal lines of the IEEE 488-1978 
(hereafter called 488) data bus (Register 2) and the 8 lines of the 488 Data Byte Transfer 
Control Bus and General Interface Management Bus (Register 1). In addition, a register is 
provided to allow a software settable response to a Parallel Poll (Register 3). Finally, a 
register is provided which indicates transitions occurring on the various 488 Control Bus 
and Management Bus lines (Register 0). Additional features of the P&T-488 include 
software disable of interrupts from the P&T-488 (without having to disable all interrupts 
of the S-100 system) and immediate response of the interface to Attention (ATN), 
interface Clear (IFC) and Parallel Poll without intervention of the S-100 system's CPU. 
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The data transfer rate is highly dependent on the software, CPU and system memory 
of the S-100 system, but with the supplied software, an 8080 running at 2.0 MHz and no 
memory wait states, the transfer rate is about 3 KBytes/sec. For applications requiring 
higher rates, the same S-100 system can get data rates of over 9 KBytes/sec in the Talk 
Only mode. 



REGISTER FUNCTIONS 

No. FUNCTION 

Interrupt Status (read only) 

Interrupt Reset (write only) 

1 Command Line Register (read and write) 

2 Data Line Register (read and write) 

3 Parallel Poll Response (write only) 











REGISTER 


[ BIT MAP 










No. 


I/O 


D7 


D6 


D5 


D4 


D3 


D2 


D1 


D0 





IN 


DAV 


NRFD 


NDAC 


XI FC 


XATN 


SRQ 


REN 


POC 






+ - 


+ 


+ 


- 


+ - 


- 


+ 


- 





OUT 


DAV 


NRFD 


NDAC 


XIFC 


XATN 


SRQ 


TALK/ 
L I STN 


Dl/ 
El 


1 


I/O 


DAV 


NRFD 


NDAC 


I FC 


ATN 


SRQ 


REN 


EOI 


2 


I/O 


DI08 


DI07 


DI06 


DI05 


DI04 


DI03 


DI02 


DIOI 


3 


OUT 


DI08 


DI07 


DI06 


DI05 


DI04 


DI03 


DI02 


DI.01 



NOTES: 

+ means the bit goes low on a LOW to HIGH transition 
- means the bit goes low on a HIGH to LOW transition 

Dl means 488 interface interrupts are disabled 
El means 488 interface interrupts are enabled 

The 488 data lines are numbered from 1 to 8, while the 
data lines on the S-100 system are numbered to 7 

X as in XATN, XIFC signifies that some device other than 
the P&T-488 has made the level on the line (ATN or IFC) 
active true (low). 
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- REGISTER 3 - 

This register holds the Parallel Poll Response byte. Whatever has been output to 
Register 3 will appear on the 488 data lines in response to a Parallel Poll (ATN and EOI). 



- REGISTER 2 - 

This register is connected to the 488 data lines through bus transceivers. The state 
of the data lines can be sensed by reading Register 2, and the P&T-488 will assert on the 
data lines whatever was last written into Register 2. However, if either the XATN flag 
or XIFC flag in Register is set, the output buffers to the 488 bus are disabled which 
precludes assertion of what was last written into Register 2. Remember that the 488 bus 
uses negative logic so that any bit that is low is asserted (or logically true). Also the 488 
bus is a wire-or system, so if any piece of equipment is asserting a particular line true, 
that line will be a logical true. But if a device asserts a false (high) signal, it is 
overridden by any device that asserts a true. Hence the terminology of active true and 
passive false. Thus if the P&T-488 is being used as a Listener all bits of Register 2 
should be written high (logic false) so that the data asserted by the Talker can be properly 
read. 



- REGISTER 1 - 

This register allows direct setting and sensing of the 488 Control and Management 
bus lines. If the XIFC flag is set in Register 0, the interface will not assert any of the 
lines, regardless of what was last written into Register 1. Similarly, if XATN flag is set 
in Register 0, the interface will not assert any line except Not Ready For Data (NRFD) 
and Service Request (SRQ). SRQ will be asserted active true (low) only if the SRQ bit 
(bit D2) of Register 1 was written low. NRFD will always be asserted active true (low). 
The reason that NRFD is asserted true is so that the System Controller will not send any 
commands until the S — 100 CPU is ready to accept them. Note that XATN has precedence 
over XIFC, so an externally applied IFC followed by an externally applied ATN will cause 
NRFD to be active true, SRQ to be true if the SRQ bit in Register 1 was written low, 
and ail other 488 lines will be passive false. 



- REGISTER - 

This is the Interrupt Status/Reset Register. Since the P&T-488 uses only one 
interrupt vector, one needs to be able to determine which condition caused the interrupt. 
Each bit of this register is associated with an interrupt-causing condition. By writing a 
low in the corresponding bits, one can individually reset the status bits associated with 
Data Valid (DAV), Not Ready For Data (NRFD), Not Data Accepted (NDAC), External 
Interface Clear (XIFC), External Attention (XATN) and Service Request (SRQ). If Bit 1 is 
set low status bit 7 will ignore any activity on the DAV line. This is useful when the 
interface is used as a Talker or Controller. If Bit 1 is set high, Bits 5 and 6 will ignore 
any activity on the NDAC and NRFD lines, which is useful when the interface is used as a 
Listener, if Bit is set low, status Bits (POC/RESET) and 1 (REN) will be cleared and 
the P&T-488 will be prevented from interrupting the S — 100 system (but the interrupt 
status bits will continue to respond to 488 Control and Management line activity). if Bit 
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is set high the interface can interrupt the S-100 system. 

If Bit 4 (IFC) of Register 1 is asserted there is no way of determining if an external 
Controller is also asserting IFC, so interrupt status bit 4 (XIFC) will ignore any activity 
due to an external Controller. A similar argument is true for ATN and XATN (Bit 3 of 
Registers 1 and 0). This is not a problem because the IEEE standard allows only the 
System Controller to assert IFC, and only the Controller-in-Charge may assert ATN. 
The standard further specifies that there may be no more than one System Controller and 
no more than one Controller-in-Charge. 
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P&T-488 Functional Test 



The program 488TST81 performs seven different kinds of tests on the P&T-488 
interface board and its 488 cable. The first group of four are done with no 488 device 
or test plug connected to the P&T-488. The last three are made with the special test 
plug connected to the P&T-488. 

The program starts by printing a message to the operator to disconnect all 488 
devices from the P&T-488. The operator signifies this has been done by pressing any key 
on the keyboard. After a key has been pressed the program begins its tests. 

NOTE: Any time a Control C is pressed, the program is aborted and control is returned to 
the monitor (operating system). 

The first test checks the data register (Register 2) by outputting a byte to the 488 
data lines then reading the data lines to see if their state corresponds to the byte output 
to them. Each of the 256 possible bytes is tried in turn. If any errors occur, a 
message "DATA ERROR - bits in error are ..." with the bit names is printed. If there 
are no errors, no message is printed. 

In a similar manner, the second test checks the command line register (Register 1). 
If there are any errors, the message "COMMAND LINE ERROR - bits in error are ..." is 
printed. Again, if there is no error, no message is printed. 

The third test checks the Parallel Poll Response register (Register 3) by first making 
ATN and EOI true. Thus anything output to the Parallel Poll Response Register should 
appear on the 488 data lines. If the Command Line test failed with bits and/or 3 in 
error, the results of this third test are meaningless. As with the first two tests, each of 
the 256 possible byte values is tried and any errors are reported: this time the error 
message is "PARALLEL POLL ERROR - bits in error are ...". 

The fourth test checks the Interrupt Service Register (Register 0). If the second 
test failed, this one will probably fail also. Errors are reported with the message 
"INTERRUPT SERVICE REGISTER ERROR - bits in error are ...». 

After these four tests have been made, (they take less than a tenth of a second), 
the operator is told to attach the special test plug and then press any key on the keyboard 
to continue the tests. The plug connects the eight data lines to the eight 488 command 
lines, so that the 488 cable can be tested for continuity, shorts or incorrect wiring. It 
also allows testing the response of the P&T-488 board to ATN and IFC asserted true by 
an external Controller. 

The fifth test checks the 488 cable and reports any bits in error. If either the 
first (data line) or second (command line) tests failed, the results of this test will be 
meaningless. If the first four tests were passed without error, but this one shows errors, 
it means either the cable and/or test plug is open, shorted, miswired or improperly 
plugged. If ail bits are in error, the 488 cable is either not connected to the P&T-488 
interface board or the special test plug is not plugged into the cable. 
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The sixth test checks the response of the P&T-488 to an IFC (Interface Clear) 
presented by an external Controller, What is really done, of course, is to use the data 
port to assert a true on the IFC line through the special shorting plug, but the P&T-488 
can't tell the difference between this and an external Controller making IFC true. The 
results are meaningful only if the first five tests passed with no errors. 

The seventh test checks the response of the P&T-488 to an ATN (Attention) 
presented by an external Controller. The technique is the same as used in the sixth test. 
Again, the results are meaningful only if the first five tests were passed without any 
errors. 

After the seventh test has been completed, the message NO ERRORS is printed if 
all tests were passed without error. Then the message "PAT 488 functional test complete 11 
is printed and the program jumps back to the monitor. 



WHAT TO DO IN CASE OF ERROR - 

If any of the first four tests fail, check the following: 

1. The P&T-488 interface board must be addressed to the same ports that the test 
routine tests. The base address (lowest address of the four) used by the P&T-488 
must be in location 103 Hex for CP/M systems, 3003 Hex for North Star. The 
program is supplied with the base address set to 7C Hex. 

2. AH 488 devices must be disconnected from the P&T-488. 

3. Make sure you are using the correct test routine. 488TST81 is to be used on 
ONLY Revision 81A boards (serial number 5000 and up). 488TEST is to be used on 
ONLY boards with serial numbers under 5000. 

If any of the first four tests fail, try disconnecting the 488 cable from the 
P&T-488 interface board. If they STILL fail, the P&T-488 is faulty and should be 
returned to Pickles & Trout for repair or replacement. Be sure to include a printout of 
the test results. If the first four tests are passed without error after the cable has been 
disconnected, the cable is defective (a short between lines or a short to ground). 

If no error message is printed before the "Attach test plug..." message to the 
operator, the first four tests were passed without error. If the error message 
"EXTERNAL ATN ERROR - bits in error are 2" is displayed, it is likely that you are 
using the wrong test routine. 488TEST is to be used on only boards with serial numbers 
under 5000; 488TST81 is to be used only on boards with serial numbers over 4999. USE 
THE CORRECT TEST. If the error message "EXTERNAL INTERFACE CLEAR ERROR 
- •••" is printed with no error message preceding it, the P&T-488 is faulty. If the 
error message "EXTERNAL ATN ERROR - • ••" is printed, and either there is no other 
error message or only the EXTERNAL INTERFACE CLEAR ERROR message, the P&T-488 
is faulty and should be returned for repair or replacement. 



RETURN POLICY - 

The P&T-488 interface board, its 488 connecting cable and the special test plug are 
warranted to be free of defects in materials and workmanship for 90 days from the date 
of sale. If they should be found faulty within the warranty period, Pickles & Trout will 
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(at its option) repair or replace them upon receipt of the defective pieces. Repairs 
necessitated by alteration, modification or misuse of these products are not covered by 
this warranty. Out of warranty interface boards which have not been modified or 
otherwise tampered with will be repaired or replaced for a flat fee. As of January, 
1981 , the fee is $45.00. 

NOTICE - A handling fee of $45.00 will be charged for any board that is returned for 
repair because the wrong test routine was used. THIS INCLUDES BOARDS STILL IN 
WARRANTY. 

When returning equipment to Pickles & Trout, be sure to include the following 
information: 

1 NAME and ADDRESS of the owner. 

2 NAME and PHONE NUMBER of the person who is using the P&T-488. 

3 / Description of the failure and how it was found. PRINTOUT OF THE TEST 

RESULTS IS REQUIRED. 

4 Description of the S-100 machine and operating system. Include manufacturer and 
model name of the CPU board, system clock rate, and the name of the organization 
that authored the operating system, as well as any information on systemic 
modifications made to it. 

For example: IMSAI 8080 with Ithaca Audio Z-80 CPU board with a system clock of 4 
MHz, North Star single density 5.25" floppy disk drive and controller, Digital 
Research CP/M as modified by Lifeboat Associates for North Star disks. 

5 If the equipment is still in warranty, enclose a copy of the bill of sale. Otherwise 
enclose a check for the repair and shipping and handling fees. The shipping and 
handling fee is $5.00 for addresses within the contiguous US, $7.50 for Alaska and 
Hawaii. There is no shipping fee for foreign addresses because the equipment will be 
returned freight collect. 

The repairs/ replacements will be made within five business days and the equipment returned 
postage paid to US addresses, freight collect to foreign addreses. 
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**** Introduction **** 

The sequence that most people follow is 

1. Unpack the P&T-488 

2. Install it in an S-100 system 

3. Test the P&T-488 to make sure it is operating properly 

4. Write programs 

The MSOFT portion of the P&T-488 manual will follow this sequence. 

**** Unpacking the P&T-488 **** 
The package contains the following items: 

1. P&T-488 interface card 5. floppy disk 

2. 18 inch cable 6. manual 

3. metric mounting hardware 7. registration card 

4. P&T-488 test plug 

The 18 inch cable is designed to go from the P&T-488 card to the back panel of your S-100 
computer. The 488 receptacle should be mounted with the metric mounting hardware provided: 
it is designed to mate with the jackscrews of standard 488 cables. 

The floppy disk contains the MSOFT driver program, the P&T-488 functional self test program, 
some sample programs (so you can see real live examples of programs written for the MSOFT 
driver) and several utility programs. 

The P&T-488 test plug is needed to perform the functional self test. 

The registration card is very important! Please fill it out and mail it to us. It is our only 
means of getting your name and address so we can tell you of any bug fixes that we have come 
up with, inform you of new application programs and other things which will save you time and 
effort. Most of our orders come from purchasing departments, and they really are not interested 
in being notified about such things. 

**** Installation **** 

The P&T-488 interface card uses four contiguous I/O ports and is supplied configured to use 
ports 7C through 7F Hex (124 through 127 decimal). Be sure there is no port address conflict 
with other I/O boards in your S-100 system before installing the P&T-488. Refer to the 
chapter "Hardware Description" for instructions if it is necessary to change the I/O ports that 
the P&T-488 uses. 

When you are satisfied that there is no I/O port address conflict between the P&T-488 
interface and other devices in your S-100 system, turn off the power to the S-100 system and 
wait at least twenty seconds (to allow sufficient time for the S-100 power supply to discharge) 
before installing the P&T-488 card. Attach the cable to the back panel of the S-100 system 
using the metric hardware supplied with the cable (this hardware mates with the standard 
lockscrews used on 488 cables supplied by Hewlett-Packard, Beldon and others) and plug the 
cable onto the top connector of the P&T-488 interface card. Note that the plug and connector 
are keyed. 

It will be necessary to modify 488TST81 if the I/O port addresses of the board have been 
changed from 7C through 7F Hex. The fourth byte in this program contains the lowest address 
of the four that is used by the P&T-488 interface card. If, for example, the card has been 
addressed to use ports 60 through 63 Hex you could change 488TST81 by following this 
procedure: 
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1. Load the program using the utility routine DDT (key "DDT 488TST81.COM"). Note that 
you are supposed to key what is in between the quote marks, but not the quote marks 
themselves. The mnemonic <CR> means to press the carriage return key. DO NOT type 
the four individual characters <, C, R and >• 

2. Change the byte in location 103 Hex. (Key "S103<CR>". DDT will respond by displaying 
"103 7C" which is the address and the contents at that address. Then key the new base 
address: in this example it would be "60<CR>". DDT will then display the next memory 
location.) 

3. Return to CP/M monitor. (Press and hold the Control key then press the letter C. Then 
release both keys.) 

4. Put the modified file back on disk (key "SAVE 5 488TST60.COM<CR>"). Be sure no£ to 
use the file name 488TST81.COM. 

As an example, assume that the port addresses used in 488TST81 are to be changed from 7C - 
7F Hex to 60 - 63 Hex. Assume further that DDT is on disk drive A and 488TST81 is on 
drive B. Finally, assume that the new file is to be stored on drive B and its name is to be 
488TST60 (the 60 is a reminder that thU program is for the P&T-488 addressed to ports 60 - 
63 Hex). The keys typed by the operator are underlined in the following dialog. 

A >B:<CR> 

B >A:PPT 488TST81.COM<CR> 

DDT VERS 1.4 

NEXT PC 

0600 0100 

-S103<CR> 

0103 7C 60<CR> 

0104 00 j£ 

B >SAVE 5 488TST60.COM<CR> 
B> 

Note that the characters <CR> mean that the carriage return key is pressed not that the four 
characters <, C, R and > are typed. Also, the two character string fC means that the 
operator issued a Control C, not that the two keys f and C were typed. 

**** Test the P&T-488 **** 

Next the P&T-488 should be tested for proper operation. Run the program named 488TST81 and 
refer to the chapter "Functional Test" for instructions. After the test has been completed 
with no errors the 488 interface is ready for use. 

**** Programs **** 

MSOFT. REL P&T-488 driver for compiler Basic 

MSOFT.COM P&T-488 driver for interpreter Basic 

BCSAMPL.BAS Compiler Basic program to exercise MSOFT 

BISAMPL.BAS Interpreter Basic program to exercise MSOFT 
B488INIT.BAS 

BICLOCK.BAS Interpreter Basic program to read an HP 59309 clock 

CLOCK. MAC Assembler program to read an HP 59309 clock 

MTSAMPL.PAS Pascal MT+ program to exercise MSOFT 

MTCLOCK.PAS Pascal MT+ program to read an HP 59309 clock 

FSAMPL.FOR Microsoft Fortran program to exercise MSOFT 

FCLOCK.FOR Microsoft Fortran program to read an HP 59309 clock 

QCCLOCK.C C program to read an HP 59309 clock 
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BUSMON.COM IEEE-488 interactive bus monitor 

488TODSK.COM Put all 488 bus data into a disk file 

DSKT0488.COM Send contents of disk file as 488 data 

HANDSHAK.ASM Sample program for source and acceptor handshake 

SAMPLHS.ASM Sample program showing the use of HANDSHAK 

Even though MSOFT is designed to work with Microsoft Basic, it can be used with some other 

languages as well. Programs written in assembler, C, Microsoft Fortran and Pascal MT+ are 
included to demonstrate how MSOFT can be used with these languages. 



**** IEEE-488 Bus Monitor **** 

A utility program named BUSMON is included on the software disk. This program is especially 
useful for experimenting and gaining familiarity with the 488 bus and the devices connected to 
it. The program is interactive and allows the user to send data as a Talker, commands as a 
Controller as well as send the various uniline messages (SRQ, REN, etc). The program is 
always a Listener and reports immediately any data, commands or uniline messages which appear 
on the 488 bus. BUSMON and the other utility programs are described in detail in the chapter 
"P&T-488 Auxiliary Programs for CP/M". This chapter appears at the end of the manual. 

**** Sample Basic Programs **** 

The Basic programs BISAMPL and BCSAMPL are also useful for dinking around and gaining 
familiarity with the 488 bus, the P&T-488 interface and whatever instruments are connected to 
the 488 bus. BISAMPL is a version written for the Microsoft Basic interpreter (MBASIC) and 
BCSAMPL is the same program written for Microsoft ! s Basic compiler (BASCOM). BUSMON has 
more capability and is more useful for actually debugging 488 bus operation, while BISAMPL and 
BCSAMPL are written in Basic and can serve as examples of how to write programs which use 
MSOFT. 

The general form of the command line to load and run Basic programs which use the P&T-488 
and interpreter Basic is the following: 

x:MSOFT yrfilenaml z:filenam2<CR> 

where x is the drive on which the program MSOFT is mounted 
y is the drive on which the file fllenaml is mounted 
z is the drive on which file filenam2 is mounted 
filenaml is the name of the Basic interpreter/run time package 
filenam2 is the name of the Basic program itself. 

For example, if MSOFT is on drive A, MBASIC is on drive C and BISAMPL is on drive B, the 
command line would be 

A:MSOFT C:MBASIC B:BISAMPL<CR> 

As is normal with CP/M, you do not need to specify the drive name if it is the current 
default drive. 

**** MSOFT: The P&T-488 Driver Program **** 

There are two versions of MSOFT on your disk: MS0FT.COM and MSOFT. REL. MS0FT.COM 
is the version to be used with the interpreter Basic, and MSOFT. REL is to be used with 
compiling Basic. 

The program MSOFT is an interface between Microsoft Basic Rev 5.00 (and later) and the 
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IEEE-488 bus. You can use MSOFT to perform the following functions: 

488 Bus Control Remote Enable Parallel Poll 

Talk Local Serial Poll 

Listen 488 Interface Clear (IFC) 

MSOFT is designed to allow you to easily access the IEEE-488 bus from either the compiler or 
interpreter version of Microsoft Basic. It uses a calling convention which is easy to understand 
and use, and which also provides the 488 functions commonly needed in a laboratory or 
automated test facility. 

A typical application program consists of two parts: a Basic program and MSOFT (a machine 
language program). Thirteen communication functions are available to allow the Basic program 
to be a Controller, Talker or Listener on the 488 bus, as well as perform other 488 operations. 
These functions use eleven variables to control communication between the Basic program and 
MSOFT. These variables may assume any legal Basic variable name. MSOFT functions are 
executed by using Basic CALL statements and passing the appropriate parameters. 

**** How It Works **** 

The key to the operation of MSOFT is the CALL statement. CALL statements ire of the form 

CALL <variable name> ( <parameter 1>, <parameter 2>, ... ,<parameter N> ) 

where <variable name> is the name of the variable which contains the address of the machine 
language routine you want to call, and <parameter1>, <parameter2>, etc., are the parameters 
you want to pass to the subroutine. You may pass any number of parameters, but the 
number and type of parameters passed must match the number and type of parameters expected 
by the machine language subroutine. Note that a passed parameter cannot be a constant or a 
string literal (e.g. 27.5 or "hello there"). 

When Basic passes a variable via the CALL statement it doesn't actually pass the variable 
itself, but only a pointer to the variable. If the variable is an integer the pointer points to 
the number itself, integers, which is the only type of numeric variable that MSOFT uses, are 
stored as two byte-two f s complement numbers, low order byte first. If the variable is a string 
the pointer points to that string's string descriptor. String descriptors consist of two parts: 
the string length (one byte), and the address in memory where the string is stored (two bytes, 
low order byte first). 

When one of the MSOFT setup routines is called Basic passes the appropriate pointers to 
MSOFT. MSOFT then transfers these pointers to a table so it can remember which variable 
names you are using for the various communication variables. In this way MSOFT can 
automatically read (or write to) the variables used for Basic-MSOFT communication. If you 
need to change some communication parameter all you have to do is assign the parameter a 
different value and MSOFT will automatically note the change. 

Example: Suppose you want to turn the input echo function on and off. If you named the 
variables for input and output echo ECHOIN96 and ECHOOUT% respectively, you would say 

100 CALL ECHO(ECHOIN%,ECHOOUT%) 

to tell MSOFT the names of the input and output echo variables. Since Basic always 

initializes variables to zero, both the input and output echo functions are initially off. When 

you want to turn on the input echo you need only make ECHOIN% non-zero, as is shown by 
the following program line: 

135 ECHOIN%=1 
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In this example we have shown the two basic units needed to communicate with MSOFT. One 
is the "Communication Function 11 (in this case ECHO) and the other is the "Communication 
Variable" (ECHOIN96 and ECHOOUT%). 

**** Communication Functions **** 

There are thirteen communication functions, four setup functions and one configuration function 
available to the user in the MSOFT program. The communication functions — as their name 
implies — control data transfer and housekeeping on the 488 bus. The setup functions are 
used to inform MSOFT what variables to use to communicate with a Basic program. These 
functions are invoked by using a Basic call to the setup function SETUP%. You may use 
different names for the communication functions in a program which is to be used with the 
interpreter version of Basic, but you must use the names shown below if you use the compiler 
version. The names shown here are the ones used in the sample programs and in the file 
INIT.BAS, which has all the code required to set up communication between MSOFT and your 
Basic program. The configuration function is used to tell MSOFT what I/O ports the P&T-488 
board is using. 

The parameters which are used by the communication and setup functions fall into two general 
categories: output variables and input variables. Output variables are values you send to 
MSOFT. Input variables are values that MSOFT sends to you. Each of these categories is 
broken down into two subcategories according to the type of variable used: integers and strings. 
The communication functions use only strings while the setup functions use only integers. 

The communication functions are: 

1. CNTL% ( <output string> ) 

Example: 100 CALL CNTL% (A$) 

Become the 488 Controller and send the output string as a command string over the 488 
bus. The error code is updated by this function. 

2. CNTLC% ( <output string> ) 

Works like CNTL%, but the error code is set equal to zero (cleared) before transmitting 
the command string. 



3. TALK% ( <output string> ) 

Example: 100 CALL TALK% (A$) 

Become a Talker and transmit the output string over the 488 bus. All 488 data lines are 
left passive FALSE after the last byte has been sent. NOTE: see EOT switch and EOS 
value. The error code is updated by this function. 

4. TALKC% ( <output string> ) 

Works like TALK96, but the error code is cleared before the output string is transmitted. 

5. LSTN% ( <input string> ) 

Example: 100 CALL LSTN% (A$) 

Become a Listener and receive an input string over the 488 bus. The NRFD line is left 
true after receiving the last byte. NOTE: see EOT switch and EOS value. The error 
code is updated by this function. 
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6. LSTNC% ( <input string> ) 

Works like LSTN%, but the error code is cleared before receiving the input string. 

7. SPOLL% ( <output string>, <input string> ) 

Example: 100 CALL SPOLL% (A$,B$) 

Perform a Serial Poll by sending the Serial Poll Enable (SPE) message as a Controller, then 
sending UNTALK followed by the first Talk Address in the output string. SPOLL% then 
gets a single byte from the newly addressed Talker and checks it to see if that Talker is 
requesting service. If that Talker was not requesting service, SPOLL% sends UNTALK 
followed by the next Talk address in the output string and gets that Talker's response 
byte. It continues doing so until it either finds a device requesting service, encounters 
an invalid Talk Address, has tried all addresses in the output string, or encounters a bus 
error. If it finds the device requesting service it puts the poll response byte in POLL% 
and the device's Talk Address in the input string, sends UNTALK followed by Serial Poll 
Disable (SPD) as a Controller, then returns to Basic. If it encounters an invalid Talk 
Address or tries ail addresses but does not find the device requesting service, it makes 
the input string a null string, sends UNTALK followed by Serial Poll Disable (SPD) as a 
Controller, then returns to Basic. If it encounters a bus error (timeout, IFC, etc.), it 
puts the error code in the error code byte, makes the input string a null string and 
returns to Basic. NOTE THAT IT DOES NOT SEND UNTALK OR SERIAL POLL 
DISABLE!! It cannot because of the bus error, and the other devices on the bus may 
well be left in the Serial Poll mode instead of the Data mode of operation. It is up to 
your program to take whatever action is appropriate in case of error. (One possibility is 
to send an IFC, which resets ail 488 devices to their initial state. However, in some 
cases this may not be appropriate.) 

Note that the output string should contain only the Talk addresses of the devices to be 
polled, if the Talk Address of some device which is not connected to, the bus is in the 
output string, SPOLL% will address it to talk and wait for its response. None is 
forthcoming, since the device is not connected! The result will be either a timeout 
error, or, if the timeout function has been disabled (by setting the time value to 255), 
the 488 bus and your S-100 system will lock up. The only recovery to such a lock-up is 
for you to reboot your S-100 system. 

Note also that the poll response variable is updated only when the device requesting 
service is found. If no such device is found POLL% contains whatever garbage it had 
when SPOLL96 was called. You can tell whether the contents of POLL% are meaningful 
by looking at the input string: it is a null string (has a length of zero) if the device 
requesting service was not found. Otherwise it is a non-null string which is the Talk 
Address of the device requesting service. 

8. PPOLL% Example: 100 CALL PPOLL% 

Performs a Parallel Poll of the 488 devices (by making the 488 ATN and EOI lines true). 
The response is placed in the poll response variable. Note that no arguments are used 
with the PPOLL% call. This function does not affect the error code. 



9. DREN% Example: 100 CALL DREN% 

Make the REN (Remote Enable) line of the 488 bus false, which places all devices in 
their LOCAL mode. This function does not affect the error code. 
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10. REN% Example: 100 CALL REN% 

Make the REN line of the 488 bus true. Once the REN line goes true any device 
addressed as a Listener by the Controller will enter the remote mode. This function does 
not affect the error code. 



11. STATUS% Example: 100 CALL STATUS% 

Calling this function updates the bus status variable. STATUS% allows the user to 
determine the bus status without becoming a Controller, Talker or Listener. It is 
primarily used to determine if some special condition is occurring on the 488 bus (another 
Controller issuing an IFC, etc). The way it works is that it checks for XATN, XIFC, 
POC and SRQ. It then sets the appropriate bits of the error code and then copies the 
five most significant bits of the error code into the bus status variable. The three 
least significant bits of the bus status variable are set to zero. Notice that since 
STATUS% does not reset the error code before checking the 488 bus, the error code and 
the bus status variable may show a condition which occurred before STATUS96 was called. 
The error code is updated by this function. 

12. IFC% Example: 100 CALL IFC% 

Initialize the bus. This function resets the P&T 488 and then issues an IFC (Interface 
Clear), which puts all 488 devices in their default state. It terminates with the NRFD 
line true, which prevents any communication from taking place on the 488 bus until the 
MSOFT system is ready to participate. This function does not affect the error code. 

13. BRSET96 Example: 100 CALL BRSET% 

Resets the ?&J 488. Unlike the IFC% command, it does not send an IFC nor does it 
make NRFD true. Thus if it is desired to allow communication to take place on the 
488 bus without the participation of the Basic program, one can use the BRSET% call. 
This function does not affect the error code. 

**•* Setup Functions **** 

Since you are allowed to choose the names you want for the variables used to communicate 
with MSOFT, you must tell it the names of the variables. There are four setup functions 
that are used for this purpose: 

1. SETUP% ( <CNTL%>, <CNTLC%>, <TALK%>, <TAL*£C%>, <LSTN%>, <LSTNC%>, 
<SPOLL%>, <PPOLL%>, <DREN%>, <REN%>, <STATUS%>, <IFC%>, <BRSET%>, <IOSET%>, 
<PROTCL%>, <ECHO%>, <IOPORT%> ) 

This function is needed only for a program which is to be run with the interpreter 
version of Basic. You do not need to use this function if the program is to be run 
with the compiling version of Basic because the compiler already "knows" the names of 
the communication functions. In fact, you cannot use this function since the compiler 
allows a maximum of ten parameters to be passed through a CALL. 

This function sets up the variable names that MSOFT is to use for all the 488 bus 
functions and the following three setup functions. Note that the value of SETUP% must 
be calculated. The calculation can be performed by the following three lines of code: 
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100 TEMP = 256*PEEK(7)+PEEK(6)+9 

110 IF TEMP > 32767 THEN TEMP = TEMP-65536! 

120 SETUP% = CINT(TEMP) 

Line 100 calculates the address of the setup function in MSOFT. Line 110 ensures that 
the value of TEMP is in the range of -32768 to 32767 (which is the range of an integer). 
Line 120 sets SETUP% to the integer value of TEMP. 

NOTE: You must call SETUP% BEFORE you make use of any other MSOFT function if 
you are using interpreter Basic. SETUP96 is the function that establishes all the 
"hooks 11 needed by MSOFT to communicate with your basic program. 

2. IOSET96 ( <error code>, <timeout value>, <poll result>, <bus status> ) 

This function sets up the variable names that MSOFT is to use for the error code, 

timeout value, poll result, and the bus status. It sets a default timeout value of 254 

each time it is called. This function must be called before using any of the function 
calls. 

Example: 100 CALL JOS ET% (ERCODE%, TIME%, POLL%, BUS%) 

3. PROTCL% ( <EOT switch>, <EOS value>, <string length> ) 

This function sets up the variables for the data transfer protocol. It sets the default 
string length to 254 each time it is called. This function must be called before using 
any of the function calls. 

Example: 100 CALL PROTCL% (EOT%, EOS%, LENGTH /*) 

4. ECHO% ( <input echo flag>, <output echo flag> ) 

This function sets up the variables for the input and output echo flags. This function 
call is optional. If It's not called before using any of the communication function calls, 
the default value is no input or output echo. 

Example: 100 CALL ECHO% (ECHOIN%, ECHOOUT%) 

**** NOTE **** 

Basic does not have any mechanism to check that the correct number and type of variables are 
passed by a CALL function, so MSOFT cannot determine whether the arguments are valid. 
Thus it is extremely important that when you call one of the MSOFT functions that you use 
the right number of arguments, and the right type of arguments. Never, NEVER do a call 
with the wrong number of arguments, or with arguments of the wrong type. If you do, your 
program will most likely fail and give unpredictable results. The best thing to do is to be 
extra careful when typing in statements involving MSOFT function calls. 

**** Configuration Function **** 

The P&T-488 board is shipped from the factory set up to use S-100 I/O ports 7C through 7F 
Hex (124 through 127 decimal). If your S-100 system already uses these ports for some other 
function, the P&T-488 must be re-addressed to some other set of ports. The section of the 
manual titled "Hardware Description" tells you how to change the address of the P&T-488 board. 
You will also have to tell MSOFT what the new address is. MSOFT assumes that the P&T^SS 
board uses addresses 7C through 7F. By calling IOPORT you can tell MSOFT the lowest 
address used by the P&T-488 board. 
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For example, assume that you change the P&T-488 board so it uses ports 38 through 3B Hex* 
The following program line will tell MSOFT this new address: 

100 PORT%=56 : CALL IOPORT%(PORT%) 

PORT% was set to 56 decimal, which is the equivalent of 38 Hex (the lowest address used by 
the P&T-488 in this example). Note that PORT96 must be set before calling IOPORT! 
IOPORT is not like the communication functions (IOSET, PROTCL, etc) because it passes to 
MSOFT the value of the parameter, while the communication functions pass to MSOFT the 
names of the parameters. You can change the timeout value at any time without having to 
call IOSET again, but you cannot change the port numbers without calling IOPORT again. 

This was done on purpose. Your program should call IOPORT no more than once since you will 
not be changing the port numbers used by the P&T-488 while the program is running. If 
IOPORT told MSOFT the name of the parameter, and you used that parameter again later on in 
the program for something else, MSOFT would then try to communicate with the P&T-488 using 
incorrect port numbers. 

The rules for the use of IOPORT are simple but important. You need to use it only if you 
have re-addressed the P&T^88 to some address other than 7C through 7F Hex. If the P&T^*88 
has been readdressed, you must use it after you call SETUP but before you use any 
communication function (CNTL, TALK, etc). 

**** Communication Variables **** 

The variables used fall into two categories: output variables and input variables. Output 
variables are values you send to MSOFT. Input variables are values that MSOFT sends to you. 
The purpose and type of each of these variables is listed below. In each case a variable name 
is also shown. You do not have to use this variable name, but it is the one used in the 
sample programs and in the file INIT.BAS, which has all the code required to set up 
communication between MSOFT and your Basic program. 

1. ERROR CODE ERCODE96 (integer, input variable) 

This variable indicates what errors (if any) occurred while using the 488 bus functions. 
It is sometimes called the RETURN CODE. The variable is a sixteen bit integer, while 
the error code is only eight bits. The error code is contained in the lower eight bits of 
the error code variable. Each bit is associated with a particular error condition. If the 
bit has the value "1" the corresponding error has occurred. 

0000 0000 Normal return - the function has been successfully completed. (Notice that 
no bit is set to "1"). 

1... .... The S-100 RESET line is/has been true. 

.1.. •••• The IFC line on the 488 bus has been true. Re-initialize the P&T 488. 

• •1. •••• The ATN line on the 488 bus is/has been true. An external 488 Controller is 
trying to issue a command. (MSOFT will not work with 488 systems which 
have another Controller on the 488 bus.) 

...1 •••• Bus timeout error. No handshake has taken place in the allotted amount of 
time. 

.... 1... The SRQ line on the 488 bus is true. Some 488 device wants service. 
Refer to the manufacturers manual to determine what action is necessary. 
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1.. Serial Poll address error. An invalid Talk address is in the string of devices 

to be polled. 

1. No Acceptors on the 488 bus. If this error occurs while performing a Control 

function, it means that there are no 488 devices on the bus which are 
capable of being addressed or programmed by the Controller. If this error 
occurs during a Talk function, it means that there are no 488 devices on the 
bus which are listening. 

1 Either IOSET% or PROTCL% was not called before trying to use one of the 

MSOFT communication functions. This error code will not tell you if the 
wrong number of arguments was passed to either IOSET% or PROTCL%, it 
will only tell you if one of them wasn't called prior to calling an MSOFT 
communication function. 



Example: If the value of the error variable is found to be 192 (1100 0000 binary), it 
means that BOTH the 488 IFC line AND the S-100 RESET are or have been 
true. 

Functions CNTLC%, TALKC% and LSTNC% reset the error code before they begin 488 bus 
communication. They then set the appropriate bits (if any) before returning to the Basic 
program. Functions CNTL%, TALK%, LSTN%, SPOLL% and STATUS% do ncn reset the 
error code before they begin 488 bus communication. They do set the appropriate bits (if 
any) before returning to Basic. Thus the error code may show errors which have occurred 
before these functions were called. 

The eight functions CNTL%, CNTLC%, TALK%, TALKC%, LSTN%, LSTNC%, SPOLL% and 
STATUS% are the only functions which affect the error code. 



2. TIMEOUT VALUE TIME% (integer, output variable) 

This variable sets the amount of time within which a 488 handshake cycle must occur or 
else a bus timeout error will occur. As with the error code, MSOFT only uses the lower 
eight bits of this variable: the actual value used is the timeout value modulo 256. If 
it is set to 255 Decimal, no timeout check is made; that is, even if a handshake cycle 
is never completed, a timeout error is not generated. For a value of through 254 
Decimal, the value is used to indicate the amount of time that the handshake may take 
before a timeout error is generated. The amount of time that the timing loop takes 
varies with the processor (8080 or Z-80), system clock rate, etc. On an 8080 system 
running at 2 MHz a value of 200 corresponds roughly to 5 seconds or a value of 4 
corresponds to about 100 milliseconds. 

NOTE: The TIMEOUT value is set to 254 each time you CALL IOSET%. 



3. POLL RESPONSE POLL% (integer, input variable) 

The lower eight bits of the poll response variable contain the response to the most recent 
Serial or Parallel Poll. 



4. BUS STATUS BUS% (integer, input variable) 

The bus status tells the user the current bus state. Note: to save time, the bus 
status is not automatically updated as the bus state changes. The bus status function 

must be called each time the bus status is desired. The coding used is exactly the 

same as that used for the error code except that only the five most significant bits are 
used. The three least significant bits are always set to zero. 
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0000 0000 Normal return - the function has been successfully completed. (Notice that 
no bit is set to "1"). 

1 The S-100 RESET line is/has been true. 

.1 The IFC line on the 488 bus has been true. Re-initialize the ?&T 488. 

..1 The ATN line on the 488 bus is/has been true. An external 488 Controller is 

trying to issue a command. (MSOFT will not work with 488 systems which 
have another Controller on the 488 bus.) 

...1 •••• Bus timeout error. No handshake took place in the allotted amount of time 
during the previous TALK%, TALKC%, LSTN%, LSTNC%, CNTL%, CNTLC% 
or SPOLL% function. 

• ••• 1... The SRQ line on the 488 bus is true. Some 488 device wants service. 
Refer to the manufacturer's manual to determine what action is necessary* 

5. EOT SWITCH EOT% (integer, output variable) 

This variable tells MSOFT how to recognize the end of a data transmission (if it's a 
Listener), or what to send at the end of its data transmission (if it's a Talker). There 
are three ways to specify the end of a data transmission: 1) The data transmission is 
assumed to be finished after a certain number of characters. 2) The data transmission 
is assumed to end with an END message. 3) The data transmission is assumed to end 
with a special end-of-string (EOS) character. The EOT switch can be greater than zero, 
zero, or less than zero. 

LISTEN MODE: 

EOT > Terminate string collection upon receipt of an EOS character, END or if the 

LENGTH is matched. 
EOT = Terminate string collection upon receipt of END or if the LENGTH is 

matched. 
EOT < Terminate string collection upon receipt of END or if the LENGTH is 

matched. (Same as EOT = 0.) 

TALK MODE: 

EOT > Append the EOS character to the end of the string. 

EOT = Send string as-is. 

EOT < Send the END message with the last byte of the string. 

6. EOS VALUE EOS% (integer, output variable) 

If the value of the EOT switch is greater than zero MSOFT looks for (or sends) this 
value as the end of a data transmission. Since there are only eight bits of data on the 
IEEE-488 bus, MSOFT only uses the lower eight bits of the EOS value. 

7. STRING LENGTH LENGTHS (integer, output variable) 

This is used only in the LISTEN mode (that is, when you CALL LSTN% or CALL 
LSTNC96). MSOFT uses this variable to determine the length of incoming messages. For 
instance, if the string length was set to 25 Decimal, then MSOFT would assume a data 
transmission was over after receiving 25 characters. 

NOTE: The string length is set to a default value of 254 each time you CALL 
PROTCL%. 
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8. INPUT ECHO FLAG ECHOING (integer, output variable) 

If the input echo flag is non-zero, then characters received by MSOFT are echoed to the 
console, otherwise they're not. The default value is zero. 

9. OUTPUT ECHO FLAG ECHOOUT% (integer, output variable) 

If the output echo flag is non-zero, then characters sent by MSOFT are echoed to the 
console, otherwise they're not. The default value is zero. 

10. OUTPUT STRING (string, output variable) 

The output string is the string of characters or commands that you wish to send over 
the 488 bus. Remember, you don f t need an EOS character in your output string. 
MSOFT will automatically generate an EOS character, an END message, or nothing at all, 
depending on how the EOT switch is set. 

11. INPUT STRING (string, input variable) 

The input string is the string most recently received by MSOFT, If the EOT switch is 
positive (EOS selected), then MSOFT will automatically remove the EOS character from 
the end of the string. 

Note: the input string variable and the output string variable may have the same name. 

As you may have noticed, the input and output string variables are not passed to MSOFT 
through the setup functions. There is a method to the madness, however. While the values 
of MSOFT numeric variables might change frequently, it shouldn't be necessary to change the 
names of these variables very often, if at all. For instance, if you called the timeout variable 
TIME%, you may change its value many times, but there is little need to change its name to 
something else. However, when using the MSOFT string variables, there are many occasions 
where it would be nice to change the names of the variables used. You could just change the 
contents of a string variable (by using an assignment statement like '100 A$ = B$ f ), but string 
assignments take a comparitively long time, and it's faster just to pass the desired string 
variable (B$ in this case). 

For example, if you have a standard programming string for each instrument on the bus, it is 
simpler to say 

100 CALL TALK%(HP3455$) 
110 CALL TALK%(HP9876$) 

than it is to say 

100 A$=HP3455$ 

110 CALL TALK%(A$) 

120 A$=HP9876$ 

130 CALL TALK%(A$) 

**** Quirks, Oddities and Strange Behavior **** 

The following characteristics of MSOFT may give rise to unexpected results. The user should 
be aware of these characteristics so that they may be used to aid, rather than hinder, program 
development. 

1. The CONTROLLER functions CNTL and CNTLC return to Basic with ATN true. The reason 
is that in some cases the user may want to send out several different strings and not have 
ATN go false in between them. For instance, the user can write 
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310 CALL CNTL%(A$) 
320 CALL CNTL%(B$) 
330 CALL CNTL%(C$) 

and have all three strings be sent as a Controller without ATN going false in between them. A 
case in which this might be desirable is shown in the following program fragment: 

310 DVMTLK$=«T» 

320 LCRTLK$="W" 

330 L9876A$="3« 

340 L2631$=«6" 

350 UNT$=CHR$(95) 

360 UNL$=CHR$(63) 

370 PRINT "CODE INSTRUMENT" 

380 PRINT " 1 HP 3455A DVM 

390 PRINT ■ 2 HP 4275 LCR METER 

400 INPUT "What instrument do you want to TALK (1 or 2)";TLKNO% 

410 PRINT "CODE INSTRUMENT" 

420 PRINT " 1 HP 9876A PRINTER 

430 PRINT « 2 HP 2631 PRINTER 

440 INPUT "What instrument do you want to LISTEN (1 or 2)";LSNO% 

450 CALL CNTLC%(UNT$) 

460 CALL CNTL%(UNL$) 

470 IF TLKNO%=1 THEN CALL CNTL%(DVMTLK$) ELSE CALL CNTL%(LCRTLK$) 

480 IF LSNO%=1 THEN CALL CNTL%(L9876A$) ELSE CALL CNTL%(L2631 $) 

If CNTL and CNTLC made ATN false before returning to Basic the selected Talker would try to 
send data over the bus as soon as line 470 is executed. Since the Listener had not been 
designated yet the Talker would abort with a "No Listener" error. ATN will be made false 
when LSTN96, LSTNC%, IFC% or BRSET% is called. 

2. A related topic involves the PARALLEL POLL function PPOLL. It also leaves ATN true 
when it returns to Basic. The idea is that after a parallel poll the user usually wants to 
become a Controller and issue some commands which are based on the results of the parallel poll. 
Thus the way it is set up now ATN remains true between the time of the parallel poll and the 
use of the Controller functions. If ATN were made false by the parallel poll function before it 
returns to the Basic program, there would be a period between the poll and the beginning of 
the Controller function during which 488 data communication can proceed. 

3. The STATUS function updates the error code and then copies the appropriate bits into the 
bus status variable. 

4. The way the error code is presently set up is that the bus communication functions (TALK, 
TALKC, LSTN, LSTNC, CNTL, CNTLC, SPOLL and STATUS) can se£ error bits, but only 
TALKC, LSTNC, CNTLC, BRSET and the user can clear error bits. The reasoning is that you 
may want to do a series of bus functions and check for error only after they are all done (which 
considerably speeds up bus communication). If the error code showed only what (if any) errors 
occurred during the most recent bus communication function, you would have to keep and 
update your own cumulative error flag, which would completely negate any speed improvement* 

5. IOSET always sets a default timeout of 254 and PROTCL always sets a default string length 
of 254. They do this so that the system will work even if the user forgets to initialize 
TIME% and LENGTH%. (Remember that Basic always initializes integer variables to 0, so if 
IOSET and PROTCL did not set default values and the user forgot to set the timeout or string 
length he would almost always get timeout errors, and never get a listen string because the 
string length indicated that zero characters are to be gathered from the bus.) 

6. One problem that often rears its ugly head has to do with how 488 devices terminate a 
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message* Some use the END message (EOI true on the last byte), some use a fixed length 
message and some use a single End-Of-String (EOS) character. All of these techniques are 
easily handled by MSOFT. However, there are some devices which use more than one character 
to indicate the end of a message: the usual multiple character end of string message is a 
carriage return followed by a line feed. The "correct 11 way to set up MSOFT in this case is 
to tell it to look for an EOS character, and tell it that the EOS character is a line feed. 
The problem is that the string you get back from MSOFT contains a carriage return as the last 
character. At times this can be a real bother. One way of dealing with the problem is to 
copy all but the last character of the string into another string with the statement 

100 NEW$=LEFT$(OLD$,LEN(OLD$H) 

7. MSOFT does not automatically start up in the RESET state. You must do a CALL BRSET 
in your application programs before you try to do any other bus function. 

8. SPOLL will leave the bus in the Serial Poll mode instead of the Data mode if it encounters 
a bus error (handshake timeout, IFC, etc.). Thus if SPOLL is interrupted by a bus error you 
must restore the bus to data mode. This can be done by issuing an Interface Clear (IFC), or 
by clearing the bus error then sending out Serial Poll Disable (SPD) as a controller. 

***** Gotchyas ***** 

Gotchyas (sometimes called "features" by advertising types) are characteristics of a product 
which are almost certain to bite the user in a most tender, if not vital, spot. Gotchyas are 
usually the result of either a lack of care in the design of the product, or are due to 
limitations over which the manufacturer has no control. MSOFT f s known gotchyas fall into the 
latter category. We have done what we can to limit their number and effect, but the ones we 
know about are either unavoidable, or the result of avoiding them is to create even more of 
them. If you find more gotchyas, please let us know so that we can warn others of their 
existence and possibly get rid of them. 

Gotchya Number 1 

Basic does not have any mechanism to check that the correct number and type of variables are 
passed by a CALL function, so MSOFT cannot determine whether the arguments are valid. 
Thus it is extremely important that when you call one of the MSOFT functions that you use 
the right number of arguments, and the right type of arguments. Never, NEVER do a call 
with the wrong number of arguments, or with arguments of the wrong type. If you do, your 
program will most likely fail and give unpredictable results. The best thing to do is to be 
extra careful when typing in statements involving MSOFT function calls. 

Gotchya Number 2 

MSOFT does not perform an automatic reset when it starts up. You must do a CALL 
BRSET% or a CALL IFC% before you perform any other 488 bus function which looks at the 
error code (TALK, TALKC, LSTN, LSTNC, CNTL, CNTLC or SPOLL). You need to do this 
only once (it is a bus initialization step). If you neglect to do a CALL BRSET% or a CALL 
IFC% before the first time you call TALK, TALKC, etc, you will most likely get an S-100 
RESET error, as well as several others. 

Gotchya Number 3 (Occurs only with LSTN and LSTNC) 

The way that MSOFT passes a string back to Basic is by dinking with the string address in 
the string descriptor area. MSOFT has its own 256 byte buffer to hold any string heard on the 
488 bus, and it changes Basic f s descriptor area to point to this buffer. Everything is OK 
until you go to get the next string by LSTN or LSTNC. If that string has a different name, 
what you wind up with is two different string names both pointing to the MSOFT string 
buffer, so the contents of both strings will be the same. 
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For example, if you have a program that looks like this 



100 CALL LSTN%(A$) 
110 CALL LSTN%(B$) 



:'**** THIS CODE WILL NOT WORK **** 
.,***♦ this CODE WILL NOT WORK **** 



both A$ and B$ will point to the MSOFT string buffer and will both contain the string heard 
with the second LSTN command. The string heard by the first LSTN command will be lost. If 
you want to get two or more strings from the bus as a Listener without losing the contents 
of the earlier strings, you can write your program like this: 



100 CALL LSTN%(DUMMY$) 
105 A$=DUMMY$ 
110 CALL LSTN%(DUMMY$) 
115 B$=DUMMY$ 



■**** THIS CODE WILL WORK **** 

'**** THIS CODE WILL WORK **** 

■**** THIS CODE WILL WORK **** 

'**** THIS CODE WILL WORK **** 



Statements 105 and 115 cause Basic to copy the contents of DUMMY$ (which happens to be 
the string buffer in MSOFT) into strings A$ and B$, respectively. Since A$ is a copy of what 
was heard on the bus statement 110 will not destroy it. 

If you do not need to preserve the previous message, and, in fact, use the same string 
variable over and over, you do not need to worry about this problem. For instance, if you are 
waiting for a 488 device to send the string "QUIT 11 and you want to ignore all others, the 
following program segment will work just fine. 



100 CALL LSTN%(A$) 

110 IF A$o«QUIT» THEN 100 



:'**** THIS CODE WILL WORK **** 
.I**** THIS CODE WILL WORK **** 



The time you have to really watch for this problem is when you want to remember previous 
messages. If you are trying to get a set of readings from an instrument and you want to 
keep them in an array, the following code will not work. 



100 FOR l%=0 TO 35 
110 CALL LSTN%(A$(I%)) 
120 NEXT \% 



:»**** THIS CODE WILL NOT WORK **** 



What will happen is that A$(0), A$(1), .... will all point to the buffer in MSOFT, and it will 
hold only the last reading. The following code will work. 



100 FOR l%=0 TO 35 
110 CALL LSTN%(DUMMY$) 
120 A$(I)=DUMMY$ 
130 NEXT 1% 



:■**** THIS CODE WILL WORK **** 
:•**** THIS CODE WILL WORK **** 



Gotchya Number 4 

The Serial Poll function SPOLL can leave the bus in a state where the Talker will send only its 
serial poll response byte instead of data. This occurs only if a bus error (timeout, IFC, etc.) 
occurs while it is doing a serial poll. Since it already encountered one bus error it assumes 
that it cannot send the Serial Poll Disable (SPD) command. One rather common way of getting 
a bus error during a serial poll is to try to poll a device which is not connected to the bus. 
SPOLL will send out its talk address and wait for the response. None is forthcoming since 
the device isn't even there. Eventually a bus timeout error will occur (if the timeout value 
had been set to something other than 255) and SPOLL will return to your Basic program. But 
note that the devices on the 488 bus still think that a serial poll is in progress, and any 
device which is later addressed as a Talker will send its serial poll response byte instead of 
data. You can tell if this has occurred by checking the error code variable after the serial 
poll. If it shows a bus timeout error occurred the other devices on the bus think a serial poll 
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is still in progress* Your program will have to tell them that it is not. One way is to 
become a Controller and send Untalk (UNT is 5F Hex) followed by Serial Poll Disable (SPD is 19 
Hex). Another way would be to send IFC (by calling function IFC), but this method may not 
be appropriate at times, because it resets ail devices to their power-on state. You may not 
want to reprogram them. 

**** How to Use MSOFT with Interpreter Basic **** 

MSOFT.COM is comprised of two parts: one of which is temporary and is used for 
initialization, the second of which remains resident in your system until you exit from Basic 
(via the SYSTEM command). You must use a command line of the following form in order to 
bring in both MSOFT and Basic: 

MSOFT MBASIC [filename options] 

Notice that you may (but do not have to) specify the name of the Basic program which you 
want to run and you may also specify the normal Basic options, such as memory size, number 
of disk file buffers, etc. For example, if you want to run the Basic program BISAMPL.BAS 
and you also want to set the memory size option to limit Basic to only the first 32 Kbytes of 
memory, the command line would look like this: 

MSOFT MBASIC BISAMPL /M:32767 

Note that one and only one space must separate each of the commands on the command line. 

**** NOTE **** 
If you have renamed your copy of MBASIC to some new name, substitute the new name 
wherever "MBASIC" appears in these command line examples. 

What MSOFT actually does is that it first relocates the resident module so that it lies just 
below the operating system (BDOS for CP/M). It then takes the rest of the command line and 
"submits" it to the operating system, just as if it were typed in by the user directly. This 
is the reason that you must give the name of your Basic interpreter on the command line. if 
you only type MSOFT on the command line MSOFT will relocate its resident module to lie just 
below the operating system and then return to the operating system. CP/M will then reload the 
CCP (Console Command Processor) to get your next command. However, the CCP also lies just 
below the operating system and destroys the resident module of MSOFT. 

MSOFT also changes the JMP BDOS in location O0O5H to a JMP to its own beginning address. 
That address contains a JMP BDOS so the BDOS calls (that is, CALL 0005H) work normally. 
MSOFT does all this to protect itself from the self-sizing feature of Basic. 

**** How to Use MSOFT with Compiling Basic **** 

The general scheme of operation is very similar to that used for the interpreter version of 
Basic, but there are a few differences. First and foremost is that the argument to a CALL in 
the interpreter must be an integer or integer variable. This is why each name ended with a 
percent sign (%). The compiler does NOT call an integer. Instead, the argument to its CALL 
is what is known as a PUBLIC LABEL. There are only two points that you really need to 
concern yourself with: (1) the name of each 488 function MUST BE the names shown earlier and 
(2) each name does NOT end with a percent sign. This means that while you may call the 
Serial Poll function any integer name you like in an interpreter program (SP0LL9&, SP%, l%, 
etc.), you must call it SPOLL in a program to be compiled. 

Since the argument of each CALL is a public label in compiling Basic, you do not have to tell 
MSOFT what variables to use (as is done in MBASINIT.BAS). Nor do you have to calculate 
SETUP9S. It will not hurt anything if you do, but it is not necessary in a program which will 
be compiled. You cannot do a CALL SETUP (CNTL%, CNTLC%, ...) because the compiler will 
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not allow more than ten parameters to be passed through a CALL. There is no problem, 
because SETUP is not needed for the compiler anyway. 

You do have to define all the communication variables (ERCODE%, TIME%, etc.) and CALL the 
functions IOSET and PROTCL. As in the interpreter version, you need to CALL ECHO only if 
you want to enable the input and/or output echo. 

The program BCSAMPL.BAS is exactly the same as BISAMPL.BAS EXCEPT that the modifications 
necessary to make it compile have been made. Note that each 488 function name has had the 
ending percent sign (%) stripped off of it, since each is now a public label instead of an 
integer variable. Lines 1160 through 1300 have been removed. 

The following dialog shows how the program BCSAMPL.BAS was compiled with Microsoft's version 
5.30 Basic compiler and then linked to the MSOFT. REL file to generate the executable 
BCSAMPL.COM file. Note that BCSAMPL.COM stands alone: you need only type 

BCSAMPL 

to run it. This is in marked contrast to the interpreter version in which you have to type 

MSOFT MBASIC BISAMPL 



**** Example of how to Compile an MSOFT Program **** 

NOTE: In the following dialog these conventions have been used: 

1. Everything typed by the operator is shown underscored. 

2. The character sequence <CR> means that the CARRIAGE RETURN key was typed. 
(Sometimes this key is labeled RETURN or ENTER.) 

3. Version 5.30 of Microsoft's Basic compiler was used. 

4. The B /O n switch was used so that BCSAMPL.COM will run without the BRUN.COM 
runtime package. 



B> BASCOM<CR> 
*=BCSAMPL/Q<CR> 

00000 Fatal Errors 
14101 Bytes Free 

B> L80<CR> 

Link-80 3.43 14-Apr-81 Copyright (c) 1981 Microsoft 

♦ BCSAMPL /E, BCSAMPL /N,MSOFT<CR> 

Data 0103 4639 <17718> 

18563 Bytes Free 
[0162 4639 70] 

B> 
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>»»»»» NOTE «««««« 

The following source-code programs are Included for illustrative purposes. Permission is granted 
to the reader to reproduce or abstract from these programs. These programs are the ONLY 
portion of this manual that may be reproduced without the prior written permission of 

Pickles & Trout, P.O. Box 1206, Goleta, CA 93116 



Comments on BISAMPL.BAS and BCSAMPL. BAS 

These programs can be used to experiment with how MSOFT works, as well as experiment with 
how any device attached to the 488 bus responds to various commands. The programs differ 
only in that BISAMPL is the version that is for the interpreter version of Basic, while 
BCSAMPL is the version for the Basic compiler. They differ in that the arguments of all the 
CALLs in BISAMPL are integers (end with a % sign), while in BCSAMPL they are public labels. 
Also, BCSAMPL does not do a CALL SETUP(...). 

These programs request the user to specify what function is to be performed by MSOFT, and 
whatever other information is needed in order to perform it. For instance, if the user 
indicates that the TALK function is to be used, the programs ask for the string that is to be 
sent over the 488 bus by the P&T-488 as a talker. After all necessary information has been 
entered the programs perform the function and report the value of the error code, what function 
was performed and any appropriate error message. 

The programs have a special string collection routine (lines 3160 through 3410). Basic does not 
normally allow characters such as line feed and carriage return to be included in a string 
gathered from the console keyboard. However, it is often necessary to include these and other 
control characters in strings which are to be sent over the 488 bus while the P&T-488 is a 
talker or a controller. These control characters can be entered into the talk and control strings 
by preceding them with an ESCAPE character. For example, to get the string 

1234<ESCAPE>$%<RETURN><LINE FEED> 

you would type 
1234<ESCAPE><ESCAPE>$%<ESCAPEXRETURN><ESCAPE><LINE FEEO><RETURN> 

Notice that each control code (<ESCAPE>, <RETURN> and <LINE FEED>) is preceded by an 
<ESCAPE>. The very last <RETURN> is not preceded by an <ESCAPE> because it is the 
delimiter telling Basic that the string is complete. The BACKSPACE key can be used to 
correct errors. BACKSPACE can be put into the string by preceding it (like the other control 
characters) with an <ESCAPE>. The only character that cannot be put into a string is Control 
C (ETX) because Basic recognizes it as an abort. 

As an illustration of how to use these programs, assume you have a Hewlett-Packard 59309A 
Digital Clock. The programming codes for this clock are the following: 

R Reset the clock to 01:01:00:00:00 

P Stop the clock 

T Start the clock 

S Add one second to the time displayed by the clock 

M Add one minute to the time displayed by the clock 

H Add one hour 

D Add one day 
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Month 


Day 


Hour 


Minute 


Second 


12 


28 


11 


23 


14 



The output to the 488 bus (when addressed to talk and with colon format) is in the following 
format: 



(? or <SP> <SP>) : 12 : 28 : 11 
Status Space Month Day Hour 



23 : 14 <CR> 
Minute Second 



<LF> 



The status character "?" means that there is an error* The status character 
<SP> means that there is no error. 

The following example shows how to reset, set and read the time. It is assumed that the 
Talk address of the clock is n E" and the Listen address is "% n . Underlined sections in the 
example are what the operator typed on the console: the rest is the computer's response. Note 
that the mnemonic <CR> means that the Carriage Return key is pressed, NOT that the four 
individual characters <, C, R, and > were pressed. To save paper [ MENU ] is shown in 
place of the menu that will actually appear on your console. The marginal comments indicate 
what it was that I was trying to accomplish at each step. 



A >MSOFT MBASIC BISAMPKCR> 

P&T 488 - MBasic Interface Software Revision 0.63 
Copyright 1981,82 by Pickles & Trout 

BASIC-80 Rev. 5.21 

[CP/M Vers ion I 

Copyright 1977-81 (C) by Microsoft 

Created: 28-Jul-81 

24967 Bytes free 



1 • CONTROL Become the Contro I 1 er and output a command str i ng 

2. TALK Become a Talker and send a string 

3. LISTEN Become a Listener and receive a string 

4. REMOTE Make the REN (Remote ENable) line true 

5. LOCAL Make the REN line false 

6. IPC Issue an IFC (InterFace Clear) command 

7. RESET Reset the P&T 488 interface 

8. STATUS Display the current 488 bus status 

9. SPOLL Perform a Serial Poll of the 488 bus 

10. PPOLL Perform a Parallel Poll of the 488 bus 

11. Change the communication protocol (EOT switch, EOS, and string length) 

12. Change input echo, output echo and timeout values 

13. Change S-100 port numbers (DIP switch on P&T-488 card must agree) 



Which would you like to do? 6<CR> 



send Interface Clear to 488 devices 



Function = INTERFACE CLEAR 
NORMAL RETURN 



Error Code = 



no errors have occurred 



[ MENU I 



Which would you like to do? 4<CR> 
Function = REMOTE ENABLE Error Code = 
NORMAL RETURN 



make REN I ine true 
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I MENU 1 

Which would you like to do? 1<CR> address the clock as a Listener 

Please enter the Control string 

STRING: ?<CR> 

Function = CONTROLLER Error Code = 2 

NO LISTENERS - I cannot talk to myself! Oh dear, I forgot to connect the 488 cable 

I MENU 1 

Which would you like to do? 6<CR> connected the cable, let's try again 
Function = INTERFACE CLEAR Error Code =0 
NORMAL RETURN 

[ MENU 1 

Which would you like to do? 4<CR> make REN line true 
Function = REMOTE ENABLE Error Code = 
NORMAL RETURN 

I MENU 1 

Which would you like to do? 1<CR> address the clock as a Listener 

Please enter the Control string 

STRING: g<CR> 

Function = CONTROLLER Error Code = 

NORMAL RETURN and the clock's indicator shows that it is addressed 

[ MENU 1 

Which would you like to do? 2<CR> set the clock to Jan 5, 8:10 AM and 15 seconds 

Please enter the Talk string 

STRING: RPDDDDHHHHHHHHMMMMMMMMMMSSSSSSSSSSSSSSS<CR> 

Function - TALKER Error Code = 

NORMAL RETURN and the clock displays 01:05:08:10:15 

I MENU 1 

Which would you like to do? 2<CR> start the clock when the time is 8:10:15 

Please enter the Talk string 

STRING: T<CR> 

Function = TALKER Error Code = 

NORMAL RETURN the clock is now running 

[ MENU ] 

Which would you like to do? 1 1<CR> make line feed the EOS byte 
The current communication protocol setup is: 

EOT switch = 
EOS value =0 
String length = 254 

What is the new EOT switch? 1<CR> terminate listen upon receipt of EOS 

What is the new EOS value (0..255)? 10<CR> make EOS a line feed 

What is the new String Length (0..255)? 25<CR> make maximum string 25 bytes 
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I MENU 



Which would you like to do? 1<CR> 

Please enter the Control string 

STRING: ?E<CR> 

Function » CONTROLLER Error Code » 

NORMAL RETURN 



unaddress clock as Listener, address as Talker 



[ MENU 1 



Which would you I ike to do? 3<CR> 
Str i ng heard on the 488 bus i s : 
01:05:08:16:01 



I isten to the clock 



that«s the time! 



Function = LISTENER 
NORMAL RETURN 



Error Code = 



I MENU ] 



Which would you like to do? tC 

Break in 1510 

0k 

SYSTEM 



press Control C to abort 



exit Basic 



B> 
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10 ' 
20 ' 
30 ' 
40 * 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 



1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 



BISAMPL as of 9:54 4-8-82 



Let the operator test each function and observe the 
response 

Control characters (such as line feed and carriage return) can 
be entered into the TALK and CONTROL strings by preceding the 
control character with an ESCAPE. For example, to get the string 
1234<ESCAPE>$?<RETURN><LINE FEED> you would type 
1 234<ESCAPE><ESCAPE>$?<ESCAPE><RETURN><ESCAPE><L I NE FEED><RETURN>. 



Initialization Routines 

The purpose of these routines is to Initialize the MSOFT function 
addresses and the communication variables. 

Calculate the address of the SETUP function 

TEMP = 256*PEEK(7)+PEEK(6)+9 

IF TEMP>32767 THEN TEMP = TEMP-65536! 

SETUP* = CI NT (TEMP) 

i 



: f convert it to an integer 
1 Set up function call address variables 



CALL SETUP? (CNTL?, CNTLC? ,TALK?, TALKC?, LSTN?, LSTNC?, SPOLL?, PP0LL?, 
DREN?, REN?, STATUS?, IFC?, BRSET?, I0SET?, PR0TCL?, ECHO?, 
I0P0RT?) 

t 



Cal I the setup routines to let MSOFT know what variables to use 



CALL I0SET? (ERC0DE?, TIME?, POLL?, BUS?) 
CALL PR0TCL? (EOT?, EOS?, LENGTH?) 
CALL ECHO? (ECH0IN?, ECH00UT?) 



! 

1 Main Menu 
i 

PRINT : PRINT 

PRINT "1. CONTROL Become the Controller and output a command string" 

PRINT "2. TALK Become a Talker and send a string" 

PRINT "3. LISTEN Become a Listener and receive a string" 

PRINT "4. REMOTE Make the REN (Remote ENable) line true" 

PRINT "5. LOCAL Make the REN line false" 

PRINT "6. IFC Issue an IFC (InterFace Clear) command" 

PRINT "7. RESET Reset the P&T 488 interface" 

PRINT "8. STATUS Display the current 488 bus status" 

PRINT "9. SP0LL Perform a Serial Poll of the 488 bus" 

PRINT "10. PP0LL Perform a Parallel Poll of the 488 bus" 

PRINT "11. Change the communication protocol (EOT switch, EOS, and string length)" 

PRINT "12. Change input echo, output echo and timeout values" 

PRINT "13. Change S-100 port numbers (DIP switch on P&T-488 card must agree)" 
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1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 



PRINT 

INPUT "Which would you like to do";F* : » get function code 

IF F*<1 OR F*>13 THEN PRINT CHR$(7):G0T0 1360 

PRINT 

ERC0DE*=0 : ! clear the error code 

i 

IF F*<>1 THEN 1630 

PRINT "Please enter the Control string" 

G0SUB 3200 : » get string to send as a controller 

FC$="C0NTR0LLER" 

CALL CNTL* (A1$) : ! send out the command string 

GOTO 2730 

i 

IF F*<>2 THEN 1700 

PRINT "Please enter the Talk string" 

GOSUB 3200 j 

FC$«"TALKER" 

CALL TALK* (A1$) 

GOTO 2730 



get string to send as a talker 
send out a data string 



get string from the 488 



make REN I Ine true 



make REN I ine false 



IF F*<>3 THEN 1780 

A1$="" 

FC$="LISTENER" 

CALL LSTN*(A1$) 

PRINT "String heard on 488 bus is:" 

PRINT A1$ 

GOTO 2730 

i 

IF F*<>4 THEN 1830 
FC$=*"REMOTE ENABLE" 
CALL REN* 
GOTO 2730 

t 

IF F*<>5 THEN 1880 
FC$="REM0TE DISABLE" 
CALL DREN* 
GOTO 2730 

i 

IF F*<>6 THEN 1930 
FC$=" INTERFACE CLEAR" 
CALL IFC* 
GOTO 2730 
t 

IF F*<>7 THEN 1980 
FC$="RESET P&T 488" 
CALL BRSET* 
GOTO 2730 

! 

IF F*<>8 THEN 2040 

CALL STATUS* 

PRINT "Bus Status is: ";BUS* 

FC$="STATUS" 

GOTO 2730 
t 

IF F*<>9 THEN 2140 

PRINT "Please enter Talk addresses to poll" 

GOSUB 3200 : f get string of talk addresses 

PRINT 



issue an IFC command 



reset the P&T 488 
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2080 FC$="SERIAL POLL" 

2090 CALL SP0LL?(A1$,B1$) : » perform Serial Poll 

2100 PRINT "Talk address of responding device Is ";B1$ 

2110 PRINT "Poll response ="; POLL? 

2120 GOTO 2730 

2130 • 

2140 IF F?<>10 THEN 2200 

2150 FC$="PARALLEL POLL" 

2160 CALL PP0LL? : ' perform para I lei poll 

2170 PRINT "Poll response = ";P0LL? 

2180 GOTO 2730 

2190 f 

2200 IF F?<>11 THEN 2400 

2210 PRINT:PRINT 

2220 PRINT "The current communication protocol setup Is:" 

2230 PRINT 

2240 PRINT " EOT switch = ";E0T? 

2250 PRINT " EOS value = ";E0S? 

2260 PRINT " String length « "; LENGTH? 

2270 PRINT 

2280 INPUT "What is the new EOT switch value";E0T? 

2290 INPUT "What is the new EOS value (0.. 255)"; EOS? 

2300 IF EOS?>=0 AND E0S?<=255 THEN 2330 

2310 PRINT "The EOS' value must be between and 255!" 

2320 GOTO 2290 

2330 INPUT "What is the new String Length (0.. 255)"; LENGTH? 

2340 IF LENGTH?>=0 AND LENGTH?<256 THEN 2370 

2350 PRINT "The LENGTH must be between and 255!" 

2360 GOTO 2330 

2370 PRINT 

2380 GOTO 1360 

2390 • 

2400 IF F?<>12 THEN 2640 

2410 PRINT:PRINT 

2420 PRINT "The Input Echo, Output Echo, and Timeout are currently set to:" 

2430 PRINT 

2440 P$="N": IF ECH0IN?<>0 THEN P$="Y» 

2450 PRINT » Input Echo ";P$ 

2460 P$="N": IF ECHOOUT?<>0 THEN P$=«Y" 

2470 PRINT " Output Echo ";P$ 

2480 PRINT " Timeout Value ";TIME? 

2490 PRINT 

2500 PRINT "Echo Input (Y/N)"; 

2510 INPUT A1$ : A1$=LEFT$(A1$,1 ) 

2520 IF A1$<>"Y" AND A1$o"N" AND A1$o"y" AND A1$o"n" THEN 2500 

2530 ECHOIN?=0: IF A1$="Y" OR A1$="y" THEN ECH0IN?=1 

2540 PRINT "Echo Output (Y/N)"; 

2550 INPUT A1$ : A1$=LEFT$(A1$, 1 ) 

2560 IF A1$<>"Y" AND A1$o»N" AND A1$o"y" AND A1$o"n" THEN 2540 

2570 ECH00UT?=0: IF A1$="Y" OR A1$=*"y" THEN ECH00UT?*1 

2580 INPUT "What is the new TIMEOUT value (0..255)";TIME? 

2590 IF TIME?>=0 AND TIME?<=255 THEN 2620 

2600 PRINT "The TIMEOUT value must be between and 255!" 

2610 GOTO 2580 

2620 PRINT 

2630 GOTO 1360 

2640 IF F?<>13 THEN 2730 

2650 INPUT "What is the new S-100 port number (0..255)";PORT? 
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2660 PRINT 

2670 CALL IOPORT*(PORT*) 

2680 GOTO 1360 

2690 • 

2700 ' SSSSSSSSSSSSSSSSS3SSSSS3SSSSSSSSSS3S33SS3S3S3S3S3SSSSS 

2710 ' Display function and error code, then return to main menu 

2720 » 

2730 PRINT 

2740 GOSUB 2770 : ! print function and error message 

2750 GOTO 1360 : ' go back to main menu 

2760 » 

2780 f Report 488 Function Errors 

2790 ■ 

2800 PRINT "Function = ";FC$;TAB(40); "Error Code » ";ERC0DE* 

2810 ' 

2820 ' Interpret Error codes and print error messages 

2830 ■ 

2840 IF ERC0DE*<0 THEN 3140 

2850 IF ERC0DE*=0 THEN PRINT "NORMAL RETURN" : RETURN 

2860 IF ERCODE*>255 THEN 3140 

2870 FOR 1*7 TO STEP -1 

2880 1 0=2© I 

2890 R9=ERC0DE*-I0 : IF R9 < THEN 3120 

2900 ERC0DE#=R9 

2910 ON 1+1 GOTO 2930,2960,2980,3010,3030,3060,3080,3100 

2920 ' 

2930 PRINT "SETUP ERROR - either I0SET* or PR0TCL* wasn't ca Med before" 

2940 PRINT " using one of the MSOFT communication functions" 

2950 GOTO 3120 

2960 PRINT "NO LISTENERS - I cannot talk to myself!" 

2970 GOTO 3120 

2980 PRINT "SERIAL POLL ADDRESS ERROR - no more than one secondary address" 

2990 PRINT " may follow a primary address" 

3000 GOTO 3120 

3010 PRINT "SERVICE REQUEST - a 488 device Is requesting service" 

3020 GOTO 3120 

3030 PRINT "TIMEOUT ERROR - the specified amount of time has elapsed without" 

3040 PRINT " completing a 488 handshake cycle" 

3050 GOTO 3120 

3060 PRINT "ATN TRUE - an external controller Is trying to issue a command" 

3070 GOTO 3120 

3080 PRINT "IFC TRUE - reset 488 Interface" 

3090 GOTO 3120 

3100 PRINT "S-100 RESET - reset interface (use function 6 or 7)" 

3110 GOTO 3120 

3120 NEXT I 

3130 RETURN 

3140 PRINT "SYSTEM ERROR - an illegal error code has been encoutered" 

3150 RETURN 

3160 » 

3 1 70 ' 3S33333IS3333SS3333333333333333SS3333333333333333333333333333 

3180 ' String Input Routine 

3190 ' 

3200 f Get the string. Gather control codes if preceded by <ESCAPE>. 

3210 • 

3220 A1$="" 

3230 PRINT "STRING: "; 
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3240 A8$=INPUT$(1) 

3250 IF ASC(A8$)<>13 THEN 3280 : f <RETURN> terminates Input 

3260 PRINT 

3270 RETURN 

3280 f Use backspace key for character at a time deletion 

3290 IF ASC(A8$)=8 THEN IF LEN(A1$)>0 THEN 3310 ELSE 3240 

3300 GOTO 3370 

3310 A9$=RIGHT$(A1$,1) : f keep deleted char 

3320 A1$=LEFT$(A1$,LEN(A1$)-1) 

3330 PRINT CHR$(8);» »;CHR$(8); 

3340 f If deleted char Is a control char must also delete leading caret 

3350 IF ASC(A9$)<32 THEN PRINT CHR$(8>;" f, ;CHR$(8); 

3360 GOTO 3240 

3370 IF ASC(A8$)=27 THEN A8$«INPUT$(1 ) : » <ESCAPE> means get next char 

3380 f Show the control character. If not a space preceed character with 

3390 f a caret. Change the control character Into a printing character. 

3400 IF A8$>=» » THEN PRINT A8$; ELSE PRINT »©»+CHR$(64+ASC(A8$)); 

3410 A1$=A1$+A8$ : f Append the character to the string 

3420 GOTO 3240 



1 remove deleted char from string 
1 delete char from CRT 
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**** BCSAMPL.BAS **** 



BCSAMPL performs the same function as BISAMPL, but Is written for the Basic compiler. The 
differences between the two programs Is a consequence of the difference between the interpreter 
and compiler versions of Microsoft Basic, You will notice that all arguments of CALLs in BCSAMPL 
are public labels, while in BISAMPL they are integers (end with a ? sign). Also, lines 1170 
through 1260 of BISAMPL are superfluous when the compiler is used, so they do not appear in 
BCSAMPL. 



**** BCSAMPL.BAS Listing **** 



10 ' 
20 > 
30 ' 

40 f 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
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SSSSSSS3SSSSS3SS 



SSS3SSSSSSSSS 



Let the operator test each function and observe the 
response 

Control characters (such as line feed and carriage return) can 
be entered into the TALK and CONTROL strings by preceding the 
control character with an ESCAPE. For example, to get the string 
1234<ESCAPE>$?<RETURN><LINE FEED> you would type 
1 234<ESCAPE><ESCAPE>$?<ESCAPE><RETURN><ESCAPE><L I NE FEED><RETURN>. 



Initialization Routines 

The purpose of these routines is to initial ize the MSOFT function 
addresses and the communication variables. 

Call the setup routines to let MSOFT know what variables to use 

CALL I0SET (ERC0DE?, TIME*, POLL?, BUS?) 
CALL PROTCL (EOT?, EOS?, LENGTH?) 

CALL ECHO (ECHO IN?, ECH00UT?) 

i 

t SSSSSSSSSSSSS33SSS3SS3SSS3SS3SSSSS333SSSSS3SSSS3S3rSSSS 

t 

t 



Main Menu 



PRINT : PRINT 

PRINT "1. CONTROL Become the Controller and output a command string" 

PRINT "2. TALK Become a Talker and send a string 11 

PRINT "3. LISTEN Become a Listener and receive a string 11 

PRINT "4. REMOTE Make the REN (Remote ENable) line true" 

PRINT "5. LOCAL Make the REN line false" 

PRINT "6. IFC Issue an IFC (InterFace Clear) command" 

PRINT "7. RESET Reset the P&T 488 interface" 

PRINT "8. STATUS Display the current 488 bus status" 

PRINT "9. SPOLL Perform a Serial Poll of the 488 bus" 

PRINT "10. PPOLL Perform a Parallel Poll of the 488 bus" 

PRINT "11. Change the communication protocol (EOT switch, EOS, and string length)" 

PRINT "12. Change input echo, output echo and timeout values" 

PRINT "13. Change S-100 port numbers (DIP switch on P&T-488 card must agree)" 

PRINT 
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1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 



INPUT "Which would you like to do";F£ : • get function code 

IF F*<1 OR F*>13 THEN PRINT CHR$(7):G0T0 1360 

PRINT 

ERC0DE£=0 : » clear the error code 

i 

IF F*<>1 THEN 1630 

PRINT "Please enter the Control string" 

GOSUB 3200 : » get string to send as a controller 

FC$="C0NTR0LLER" 

CALL CNTL (A1$) : ' send out the command string 

GOTO 2730 

i 

IF F*<>2 THEN 1700 

PRINT "Please enter the Talk string" 



get string to send as a talker 
send out a data string 



get string from the 488 



make REN I Ine true 



make REN I Ine false 



GOSUB 3200 
FC$="TALKER" 
CALL TALK (A1$) 

GOTO 2730 
t 

IF F?<>3 THEN 1780 

A1$*"" 

FC$-"LISTENER" 

CALL LSTN(A1$) 

PRINT "String heard on 488 bus is:" 

PRINT A1$ 

GOTO 2730 
t 

IF F£<>4 THEN 1830 
FC$="REM0TE ENABLE" 
CALL REN 
GOTO 2730 
t 

IF F*<>5 THEN 1880 
FC$="REMOTE DISABLE" 
CALL DREN 

GOTO 2730 
f 

IF F*<>6 THEN 1930 
FC$=» INTERFACE CLEAR" 
CALL IFC 
GOTO 2730 

i 

IF F*<>7 THEN 1980 
FC$="RESET P&T 488" 
CALL BRSET 
GOTO 2730 
i 

IF F*<>8 THEN 2040 

CALL STATUS 

PRINT "Bus Status is: ";BUS* 

FC$="STATUS" 

GOTO 2730 
t 

IF F*<>9 THEN 2140 

PRINT "Please enter Talk addresses to poll" 

GOSUB 3200 : » get string -of talk addresses 

PRINT 

FC$="SERIAL POLL" 



issue an IFC command 



reset the P&T 488 
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2090 CALL SPOLL(A1$,B1$) : ' perform Serial Poll 

2100 PRINT "Talk address of responding device is ";B1$ 

2110 PRINT "Poll response » ";P0LL* 

2120 GOTO 2730 

2130 » 

2140 IF F*<>10 THEN 2200 

2150 FC$="PARALLEL POLL" 

2160 CALL PP0LL : f perform parallel poll 

2170 PRINT "Poll response » ";P0LL* 

2180 GOTO 2730 

2190 • 

2200 IF F*<>11 THEN 2400 

2210 PRINT:PRINT 

2220 PRINT "The current communication protocol setup is:" 

2230 PRINT 

2240 PRINT " EOT switch = ";E0T* 

2250 PRINT " EOS value = ";E0S* 

2260 PRINT " String length = "; LENGTH* 

2270 PRINT 

2280 INPUT "What is the new EOT switch value"; EOT* 

2290 INPUT "What is the new EOS value (0. .255)"; EOS? 

2300 IF E0S*>=*0 AND E0S*<=255 THEN 2330 

2310 PRINT "The EOS value must be between and 255!" 

2320 GOTO 2290 

2330 INPUT "What is the new String Length (0. .255)"; LENGTH* 

2340 I F LENGTH*>*0 AND LENGTH*<256 THEN 2370 

2350 PRINT "The LENGTH must be between and 255!" 

2360 GOTO 2330 

2370 PRINT 

2380 GOTO 1360 

2390 ■ 

2400 IF F*<>12 THEN 2640 

2410 PRINT:PRINT 

2420 PRINT "The Input Echo, Output Echo, and Timeout are currently set to:" 

2430 PRINT 

2440 PS«"N": IF ECHOIN*<>0 THEN P$*"Y" 

2450 PRINT " Input Echo ";P$ 

2460 P$="N": IF ECH00UT*<>0 THEN P$«»Y" 

2470 PRINT " Output Echo ";P$ 

2480 PRINT " Timeout Value ";TIME* 

2490 PRINT 

2500 PRINT "Echo Input (Y/N)"; 

2510 INPUT A1$ : A1$=LEFT$(A1$,1 ) 

2520 IF A1$<>"Y" AND A1$o"N" AND A1$o"y" AND A1$o«n« THEN 2500 

2530 ECH0IN*=0: IF A1$="Y" OR A1$="y" THEN ECHOING 

2540 PRINT "Echo Output (Y/N)"; 

2550 INPUT A1$ : A1$=LEFT$(A1$,1 ) 

2560 IF A1$<>"Y" AND A1$<>"N" AND A1$o"y« AND A1$<>"n" THEN 2540 

2570 ECH00uT*=0: IF A1$*"Y" OR A1$="y" THEN ECH00UT**1 

2580 INPUT "What is the new TIMEOUT value (0..255)";TIME* 

2590 IF TIME*>=0 AND TIME*<=255 THEN 2620 

2600 PRINT "The TIMEOUT value must be between and 255!" 

2610 GOTO 2580 

2620 PRINT 

2630 GOTO 1360 

2640 IF F*<>13 THEN 2730 

2650 INPUT "What is the new S-100 port number (0. .255)"; PORT* 

2660 PRINT 
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2670 CALL lOPORKPORT*) 
2680 GOTO 1360 
2690 f 

2710 ! Display function and error code, then return to main menu 

2720 » 

2730 PRINT 

2740 GOSUB 2770 : f print function and error message 

2750 GOTO 1360 : f go back to main menu 

2760 f 

2770 ' 3S3SS53S3SSSSS3SSSSSSSSS3S3S33SSSSS5333SSSS35SSS5S3SSSS 

2780 • Report 488 Function Errors 

2790 ■ 

2800 PRINT "Function - «;FC$;TAB(40); "Error Code = ";ERC0DE* 

2810 f 

2820 f I nterpret Error codes and pr I nt error messages 

2830 » 

2840 IF ERC0DE*<0 THEN 3140 

2850 IF EROODEjt-0 THEN PRINT "NORMAL RETURN" : RETURN 

2860 IF ERC0DE*>255 THEN 3140 

2870 FOR 1=7 TO STEP -1 

2880 I0=2©l 

2890 R9=*ERC0DE*-I0 : IF R9 < THEN 3120 

2900 ERC0DE*=*R9 

2910 ON 1+1 GOTO 2930,2960,2980,3010,3030,3060,3080,3100 

2920 f 

2930 PRINT "SETUP ERROR - either I0SET* or PR0TCL? wasn't called before" 

2940 PRINT " using one of the MSOFT communication functions" 

2950 GOTO 3120 

2960 PRINT "NO LISTENERS - I cannot talk to myself!" 

2970 GOTO 3120 

2980 PRINT "SERIAL POLL ADDRESS ERROR - no more than one secondary address" 

2990 PRINT " may follow a primary address" 

3000 GOTO 3120 

3010 PRINT "SERVICE REQUEST - a 488 device is requesting service" 

3020 GOTO 3120 

3030 PRINT "TIMEOUT ERROR - the specified amount of time has elapsed without" 

3040 PRINT " completing a 488 handshake cycle" 

3050 GOTO 3120 

3060 PRINT "ATN TRUE - an external controller is trying to issue a command" 

3070 GOTO 3120 

3080 PRINT "IFC TRUE - reset 488 interface" 

3090 GOTO 3120 

3100 PRINT "S-100 RESET - reset interface (use function 6 or 7)" 

3110 GOTO 3120 

3120 NEXT I 

3130 RETURN 

3140 PRINT "SYSTEM ERROR - an illegal error code has been encoutered" 

3150 RETURN 

3160 • 

3 1 70 ' 33333333S3333333333333333333333333333333S333333333333S33333S 

3180 f String Input Routine 

3190 f 

3200 ' Get the string. Gather control codes if preceded by <ESCAPE>. 

3210 f 

3220 A1$="" 

3230 PRINT "STRING: "; 

3240 A8$=INPUT$(1) 
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3250 IF ASC(A8$X>13 THEN 3280 : ' <RETURN> terminates input 

3260 PRINT 

3270 RETURN 

3280 f Use backspace key for character at a time deletion 

3290 IF ASC(A8$)=8 THEN IF LEN(A1$)>0 THEN 3310 ELSE 3240 

3300 GOTO 3370 

3310 A9$=RIGHT$(A1$,1) : f keep deleted char 

3320 A1$=LEFT$(A1$,LEN(A1$)-1) 

3330 PRINT CHR$(8);» M ;CHR$(8); 

3340 f If deleted char Is a control char must also delete leading caret 

3350 IF ASC(A9$)<32 THEN PRINT CHR$(8);" ";CHR$(8); 

3360 GOTO 3240 

3370 IF ASC(A8$)*27 THEN A8$»INPUT$(1 ) : ! <ESCAPE> means get next char 

3380 f Show the control character. If not a space preceed character with 

3390 • a caret. Change the control character Into a printing character, 

3400 IF A8$>»" » THEN PRINT A8$; ELSE PRINT "®"+CHR$(64+ASC(A8$)); 

3410 A1$*A1$+A8$ : f Append the character to the string 

3420 GOTO 3240 



1 remove deleted char from string 
1 delete char from CRT 
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**** B488IMIT.BAS **** 



This program fragment Is included on your disk as an aid in writing programs for MSOFT, All of 
the setup calls are included. Its primary utility is that all the variables are called in the 
correct order in the setup routines. Remember that Basic does not check to make sure that the 
right number of parameters are passed, nor does it check to make sure they are of the correct 
type. Since B488INIT,BAS has all of the setup calls in it, if you copy it to your program you 
are sure that the right number and type of parameters are used. Also, you are spared the 
frustration of spending hours trying to get a program to work only to find out that you have 
mispel led a function name, or have accidently changed the order of the parameters. 



**** B488INIT.BAS Listing **** 



Initialization Routines 

The purpose of these routines is to initialize the MBAS488 function 
addresses and the communication variables. 

Calculate the address of the SETUP function 



100 

110 

120 

130 

140 

150 

160 

170 

180 TEMP = 256*PEEK(7)+PEEK(6)+9 

190 IF TEMP>32767 THEN TEMP = TEMP-65536! 

200 SETUP? » CINT(TEMP) ;« convert it to an integer 

210 f 

220 f Set up function call address variables 

230 f 

240 CALL SETUP? (CNTL?, CNTLC? ,TALK?, TALKC?, LSTN?, LSTNC?, SP0LL?, PP0LL?, 

DREN?, REN?, STATUS?, IFC?, BRSET?, I0SET?, PR0TCL?, ECHO?, 

I0P0RT?) 
250 ' 

260 f Call the setup routines to let MBAS488 know what variables to use 
270 ■ 

280 CALL I0SET? (ERC0DE?, TIME?, POLL?, BUS?) 
290 CALL PROTCL? (EOT?, EOS?, LENGTH?) 
300 CALL ECHO? (ECHO IN?, ECH00UT?) 
310 » 
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B I CLOCK. B AS 



♦*** 



This program demonstrates how simple an interpreter Basic program can be. The first part is a 
copy of B488INIT, and the error-reporting subroutine was lifted from BISAMPL. Thus only lines 
1340 through 1650 are unique to this program. This program initializes the 488 bus (by sending 
an Interface Clear), puts an HP 59309 clock into the Remote mode (by making the REN line 
true and then sending the clock's Listen Address). It then addresses the clock as a Talker and 
listens to the data (status, date and time) that the clock sends over the bus. It displays the 
date and time each time the minutes change. It also displays the data each time the status 
character indicates a clock error. 



10 f 
20 f 
30 ' 
40 f 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 



1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 



B I CLOCK as of 14:30 4-09-82 



This is an interpreter Basic program which addresses an 
HP 59309A clock as a talker and then reads the time and 
date. It continually rereads the time and displays the 
time and date on the console each minute. 

The program assumes that the bus output format of the 
59309A is set to SPACE, CAL and COLON. It also assumes 
that the TALK address of the clock Is "E" and the 
LISTEN address of the clock is "?". 



Initial ization Routines 

The purpose of these routines is to initialize the MSOFT function 
addresses and the communication variables. 

Calculate the address of the SETUP function 

TEMP = 256*PEEK(7)+PEEK(6)+9 

IF TEMP>32767 THEN TEMP » TEMP-65536! 



SETUP* » CINT(TEMP) 



: f convert it to an integer 



« Set up function call address variables 
t 

CALL SETUP? (CNTL?, CNTLC? ,TALK?, TALKC?, LSTN?, LSTNC?, SP0LL?, PP0LL?, 

DREN?, REN?, STATUS?, IFC?, BRSET?, I0SET?, PR0TCL?, ECHO?, 

I0P0RT?) 
i 

1 Call the setup routines to let MSOFT know what variables to use 

t 

CALL I0SET? (ERCODE?, TIME?, POLL?, BUS?) 
CALL PROTCL? (EOT?, EOS?, LENGTH?) 
CALL ECHO? (ECHO IN?, ECHOOUT?) 



CALL IFC? 
CALL REN? 

A1$=«?"+CHR$(95)+»?" 
CALL CNTLC?(A1$) 

t 

IF ERC0DE?<>0 THEN 1640 



1 Do an Interface Clear (IFC) 

f Make the REN line true 

1 Unlisten, Untalk, Listen Address "?" 

1 Become the Control ler and output A1$ 

(This puts the clock into the REMOTE mode) 
1 Report any errors 
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1410 TIME*=255 

1420 E0T*=1 

1430 EOS*=10 

1440 OLDMIN*=-1 

1450 f match a clock reading 

1460 f 



1 Do not time handshake 

1 Stop on End-Of-String (EOS) byte 

1 Make line feed the EOS byte 

1 Make 0LDMIN some value which cannot 



1470 A1$="?"+CHR$(95)+"E" 

1480 CALL CNTLC*(A1$) 

1490 IF ERCODE^OO THEN 1640 

1500 CALL LSTNC*(A2$) 

1510 IF ERC0DE*<>0 THEN 1640 



: f Un listen, Untalk, Talk Address "E" 

:' Become the Controller and output A1$ 

: f Report any errors 

: f Read the clock 

: f Report any errors 
1520 f If the first character Is a "?" then the clock Is In error 
1530 IF MID$(A2$,1,1)=" " THEN 1580 
1540 PRINT "CLOCK ERROR ";A2$ 

1550 PRINT "Reset clock" : f Tell operator clock needs resetting 
1560 END : f Then exit program 

1570 f Make MIN? the value of the unit minutes character 
1580 MIN*=ASC(MID$(A2$, 13,1)) 

1590 f Show the time if the minutes have changed 
1600 IF MIN*<>0LDMIN# THEN PRINT A2$ 
1610 0LDMIN*=MIN* :' Update 0LDM IN? 

1620 GOTO 1460 :' Read the clock again 

1630 ' 

1640 GOSUB 1670 :' Report the error 

1650 GOTO 1340 :' go back to IFC, REN, etc 

1660 ■ 

1670 f «-—«— ~«»«™— ~— ^ 
1680 f Report 488 Function Errors 
1690 ' 

1700 f Interpret Error codes and print error messages 
1710 f 

1720 IF ERC0DE*<0 THEN 2020 
1730 IF ERCODEJJ-0 THEN RETURN 
1740 IF ERC0DE*>255 THEN 2020 
1750 FOR 1=7 TO STEP -1 
1760 1 0=2© I 

1770 R9=ERC0DE*-I0 : IF R9 < THEN 2000 
1780 ERC0DE#=R9 

1790 ON 1+1 GOTO 1810,1840,1860,1890,1910,1940,1960,1980 
1800 » 

1810 PRINT "SETUP ERROR - either I0SET* or PR0TCL* wasn't called before" 
1820 PRINT " using one of the MSOFT communication functions" 

1830 GOTO 2000 

1840 PRINT "NO LISTENERS - I cannot talk to myself!" 
1850 GOTO 2000 

1860 PRINT "SERIAL POLL ADDRESS ERROR - no more than one secondary address" 
1870 PRINT " may follow a primary address" 

1880 GOTO 2000 

1890 PRINT "SERVICE REQUEST - a 488 device is requesting service" 
1900 GOTO 2000 

1910 PRINT "TIMEOUT ERROR - the specified amount of time has elapsed without" 
1920 PRINT " completing a 488 handshake cycle" 

1930 GOTO 2000 

1940 PRINT "ATN TRUE - an external controller is trying to issue a command" 
1950 GOTO 2000 

1960 PRINT "IFC TRUE - reset 488 interface" 
1970 GOTO 2000 
1980 PRINT "S-100 RESET" 
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1990 GOTO 2000 

2000 NEXT I 

2010 RETURN 

2020 PRINT "SYSTEM ERROR - an Illegal error code has been encountered" 

2030 RETURN 



*«** Parameter Passing **** 

Even though MSOFT Is designed to work with Microsoft Basic, It can be used with some other 
languages as well. Programs written In assembler, C, Microsoft Fortran and Pascal MT+ are shown 
in the following pages to demonstrate how MSOFT can be used with these languages. 

Most languages require some assembler code in order to convert the Microsoft Basic parameter 
passing convention into whatever the language requires. For instance, C passes parameters on the 
stack but the called routine must not remove them from the stack. Pascal MT+ passes parameters 
on the stack and requires that the called routine remove them from the stack. In general, each 
language Is slightly different and will require different parameter-passing conversion programs. 

MSOFT Is designed to interface with Microsoft Basic, so it uses exactly the same method of 
passing parameters as Microsoft Basic. The Instruction 

CALL PGMCparanl, paraa2, paran3, para»4) 
passes the four parameters paraml , param2, param3 and param4 to PGM. Unlike most modern 
languages, Basic passes parameters by reference instead of by value. What this means is that 
Basic passes the address of the parameter to the ca I led program. 

MSOFT uses only two kinds of parameters: integers and strings. Basic stores integers as 16 bit 
(two byte) quantities, with the low order byte stored at the address, and the high order byte at 
location address+1. Basic stores strings in two parts: one is the string itself, and the other 
part is the string descriptor (sometimes ca I I ed a dope vector). The string itself is stored in 
contiguous memory locations, with the leftmost character stored in the lowest address. The 
string descriptor is a three-byte block. The first byte contains the number of characters in the 
string (0.. 255), and the remaining two bytes contain the address of the first character of the 
string. As usual, Basic stores the address low order byte first. 

When Basic passes an integer parameter, it actually passes the 16 bit address where that integer 
is stored. And when Basic passes a string, it actually passes the address of the descriptor 
block of that string. The called program has to look In that descriptor block to find the actual 
address of the string. 

Basic does not Indicate In any manner whatsoever the number or type of arguments passed. This Is 
why It Is so important that you make sure that the number and type are correct when you write a 
program. There is no way for the called programs to check for correctness of number and type. 

Basic passes the parameters in the 16 bit registers of the 8080/Z-80, and, If there are more than 
three parameters, In a parameter table. The address of the first parameter Is passed In register 
pair HL. The address of the second parameter (If any) is passed in register pair DE. If there 
are three parameters, the address of the third parameter is passed in register pair BC. If there 
are more than three parameters, the third through last parameters are put Into a table and 
register pair BC contains the beginning address of that table. The table Is organized as low 
byte of parameter 3, high byte of parameter 3, low byte of parameter 4, etc. 

Let us look at a few examples. 

CALL ECHO (ECHO IN?, ECHOUTJ) 
HL = address of ECHO IN* 
DE = address of ECHOUT* 
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CALL TALK (A$) 

HL = address of descriptor block for A$ 
A$ descriptor block: 
Byte = string length 
Byte 1 = low byte of string address 
Byte 2 = high byte of string address 

CALL IOSET (ERCODE?, TIME?, POLL?, BUS?) 
HL = address of ERCODE? 
DE = address of TIME? 
BC = address of parameter table 

parameter table: 

Byte = low byte of address of POLL? 

Byte 1 = high byte of address of POLL? 

Byte 2 = low byte of address of BUS? 

Byte 3 s high byte of address of BUS? 



**** CLOCK.MAC **** 



This program performs the same function as the Basic program B I CLOCK, but this one is written in 
8080 assembler. Notice how the addresses of the parameters are placed in the registers before 
the MSOFT functions are called. 

The following dialog shows how to assemble and link this program with MSOFT. REL. The result is 
an executable file named CL0CK.COM. 

B >M80 =CL0CK<CR> 

No Fatal error (s) 

B >L80 CL0CK/E,CL0CK/N,MS0FT<CR> 

Link 80 3.42 19-Feb-81 Copyright (c) 1981 Microsoft 

Data 0103 0B2B < 2600> 

38769 Bytes Free 
[0000 0B2B 11] 

B> 



CLOCK.MAC 



4-12-82 15:32 



This assembly program is designed to be used with the MSOFT interface 
software for the P&T-488. The primary purpose of this program is to 
Illustrate how one can use MSOFT from an assembly program. 

This program first initializes the 488 bus by sending an Interface Clear. 
It then puts an HP 59309A clock into the remote mode by making the REN 
line true and then addressing the clock as a Listener. This program 
then addresses the clock as a Talker and listens to the data (status, 
date and time) that the clock sends over the bus. It displays the date 
and time each time the minutes change. It also displays the data each 
time the status character indicates a clock error. 

The program assumes that the bus output format of the 59309A is set 
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to SPACE, CAL and COLON, It also assumes that the TALK address of the 
clock is "E» and the LISTEN address Is "%". 

Declare MSOFT routines as EXTernal references 

EXT CNTL, CNTLC, TALK, TALKC, LSTN, LSTNC 
EXT SPOLL, PPOLL, DREN, REN, STATUS, IFC 
EXT BRSET, IOSET, PROTCL, ECHO, IOPORT 



CR 

LF 

ES 

BOOT 

BDOS 



EQU 
EQU 
EQU 
EQU 
EQU 

JMP 



13 

10 

'$' 



5 



ASCII carriage return 
ASCII I ine feed 
CP/M end of string character 
CP/M reboot entry 
standard CP/M entry 



CLXK ;jump to beginning of the program 



ERCODE: 
TIME: 
EOT: 
EOS: 
LENGTH: 
POLL: 
ECHOIN: DW 
ECHOUT: DW 
BUS: DW 
; B register 
BBFR1 : DW 
BBFR2: DW 



DW 
DW 
DW 
DW 
DW 
DW 












buffer 





; storage area for 488 error code 

; storage area for 488 timeout 

; storage area for 488 EOT switch 

; storage area for 488 EOS byte 

; storage area for 488 listen string length 

; storage area for 488 poll response 

; storage area for 488 input echo switch 

; storage area for 488 output echo switch 

; storage area for 488 bus status var iabl e 



OLDM I N : DB ; prev I ous m i n utes read i ng 

STRVCR: DS 3 ; string vector (count followed by address) 

STRBFR: DS 64 ;a string buffer 



DS 



STAK: 



32 



; stack area 



CLKMSG: DB CR,LF, 'CLOCK ERROR ',ES 

RSTMSG: DB 'Reset clock' ,CR,LF,ES 

ERMSG1: DB CR,LF, 'SETUP ERROR - either IOSET or PROTCL was not ' 

DB 'called before using' 

DB CR,LF,'one of the MSOFT communication functions' ,CR,LF,ES 

ERMSG2: DB CR,LF,'N0 LISTENERS - I cannot talk to myself !' ,CR,LF,ES 

ERMSG3: DB CR,LF, 'SERIAL POLL ADDRESS ERROR - no more than one secondary' 

DB CR,LF,' address may follow a primary address' ,CR,LF,ES 

ERMSG4: DB CR,LF,' SERVICE REQUEST - a 488 device is requesting service' 

DB CR,LF,ES 

ERMSG5: DB CR,LF, 'TIMEOUT ERROR - the specified amount of time has elapsed' 

DB CR,LF,' without completing a 488 handshake cycle' ,CR,LF,ES 

ERMSG6: DB CR,LF,'ATN TRUE - an external controller is trying to issue' 

DB ' a command' ,CR,LF,ES 

ERMSG7: DB CR,LF,«IFC TRUE - reset 488 interface' ,CR,LF,ES 

ERMSG8: DB CR, LF,'S-1 00 RESET' ,CR,LF,ES 



CLOCK: LXI 
SHLD 
LXI 
SHLD 



H,BUS 

BBFR2 ;save address 

H,P0LL 

BBFR1 



in second entry of B reg buffer 
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LXI 


B,BBFR1 




LXI 


D,TIME 




LXI 


H,ERCODE 




CALL 


IOSET 


1 


LXI 


B, LENGTH 




LXI 


D,EOS 




LXI 


H,EOT 




CALL 


PROTCL 


I 


LXI 


D,ECHOUT 




LXI 


H, ECHO IN 




CALL 


ECHO 


9 

; 1 


ssue an IFC 


command 




CALL 


IFC 
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B f BBFR1 ; point BC to B register buffer 

; point DE to address of word holding TIME 



Make REN I Ine true 
CALL REN 

TIME contains the amount of time to allow for handshake. 
If TIME=255, then the handshake Is not itmed. 

LXI H,255 

SHLD TIME 



Turn off Input and output echo 
LXI H,0 
SHLD ECHO IN 
SHLD ECHOUT 

Set up MSOFT so that It will stop on EOS (End-Of-Strlng) byte, 
set the EOS byte to be a line feed • 

LXI H,1 

SHLD EOT 

LXI H,10 

SHLD EOS 

Set up a string for the Control function. We will make the string 
three bytes longs UNLISTEN, UNTALK and LAD (Listen Address of the clock) 



LXI 
LXI 
MVI 
I NX 
MOV 
I NX 
MOV 



H,STRVCR ; point HL to the string descriptor vector 
D,STRBFR ; point DE to the string buffer 



M,3 

H 

M,E 

H 

M,D 



;put the count in the first byte of the vector 

;put the address of the string in the next word 
; of the vector 



Now put the characters into the string 



MVI 
STAX 
I NX 
MVI 
STAX 
I NX 
MVI 
STAX 



A,'? f 

D 

D 

A/J 

D 

D 

A,'*' 

D 



; UNLISTEN 



; UNTALK 



;LAD (Listen Address of the clock) 



Now send the string over the 488 bus as a controller 
LXI H,STRVCR 
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CALL CNTLC 

; Check error code and report any errors 

CALL ERRCHK 

i 

; If there Is a bus error start the program again 

LDA ERCODE 

ORA A 

JNZ CLOCK 

Set up a string for the Control function. We will make the string 

three bytes long: UNLISTEN, UNTALK and TAD (Talk Address of the clock) 
REDTIM: LXI H,STRVCR ; point HL to the string descriptor vector 

LXI D,STRBFR ; point DE to the string buffer 

MVI M,3 ;put the count In the first byte of the vector 

INX H 

MOV M,E ;put the address of the string In the next word 

INX H ; of the vector 

MOV M,D 

; Now put the characters into the string 

MVI A,'? 1 ; UNLISTEN 

STAX 

INX D 

MVI A,'_ ! ; UNTALK 

STAX D 

INX D 

MVI A, f E f ;TAD (Talk Address of the clock) 

STAX D 

i 

; Now send the string over the 488 bus as a controller 
LXI H,STRVCR 
CALL CNTLC 

9 

; Check error code and report any errors 
CALL ERRCHK 

9 

; If there Is a bus error start the program again 
LDA ERCODE 
ORA A 
JNZ CLOCK 

9 

; Now become a listener and read the time from the clock 

LXI H,STRVCR ;tel I LSTNC where the string vector Is kept 
CALL LSTNC ; listen to the clock 

9 

; Check error code and report any errors 
CALL ERRCHK 

9 

; If there is a bus error start the program again 
LDA ERCODE 
ORA A 
JNZ CLOCK 

; No 488 bus error, so look at the string we got from the clock 
LXI H,STRVCR ; point HL to the string vector again 
MOV C,M ;C=count (length of string) 
INX H ; point to the address of the string 
MOV E,M 
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(NX 
MOV 



H 
D,M 



;DE=address of string heard on the 488 bus 



Look at clock status byte to see if there is a problem 
LDAX D 
CPI »?« 
JZ CLKERR ;.. clock error, so report it 



See if the minutes have changed since the last time the clock was read 
LXI H,12 ;units digit of minutes is the 13th byte of 
; the string 

;HL now points to the units digit of the minutes 
;get old value of units digit of minutes 
; compare it to the new value 
; update the old value for the next time 

;..di splay the time if units digit has changed 
;read the time again 



ERRCHK: LDA ERCODE ;get the error code 

; rotate right 
DE points to appropriate error message 
if carry set, display the error message 
rotate right 

DE points to appropriate error message 
if carry set, display the error message 
rotate right 

DE points to appropriate error message 
if carry set, display the error message 
rotate right 

DE points to appropriate error message 
If carry set, display the error message 
rotate right 

DE points to appropriate error message 
if carry set, display the error message 
rotate right 

DE points to appropriate error message 
If carry set, display the error message 
rotate right 

DE points to appropriate error message 
If carry set, display the error message 
rotate right 

DE points to appropriate error message 
If carry set, display the error message 



This subroutine displays the clock error message and the time 
read from the clock on the console, it then jumps back to the 
read time routine. 
CLKERR: PUSH B ;save string length counter 

PUSH D ;save pointer to listen string 

LXI D,CLKMSG ; point to clock error message 

CALL SHOERR ;d I splay It on the console 

POP D ;DE points to beginning of listen string again 

POP B ;C contains the string length 

CALL SHOT I M ; display the string we got from the clock 

LXI D,RSTMSG ; point to reset message 



DAD 


D j 


LDA 


OLDMIN ; 


CMP 


M ; 


MOV 


A,M ■ 


STA 


OLDMIN 


CNZ 


SHOTIM j 


JMP 


REDTIM '■.; 


subroutine repori 


LDA 


ERCODE , 


RAR 


, 


LXI 


D,ERMSG1 


cc 


SHOERR 


RAR 




LXI 


D,ERMSG2 


CC 


SHOERR 


RAR 




LXI 


D,ERMSG3 


CC 


SHOERR 


RAR 




LXI 


D,ERMSG4 


CC 


SHOERR 


RAR 




LXI 


D,ERMSG5 


CC 


SHOERR 


RAR 




LXI 


D,ERMSG6 


CC 


SHOERR 


RAR 




LXI 


D,ERMSG7 


CC 


SHOERR 


RAR 




LXI 


D,ERMSG8 


CC 


SHOERR 


RET 
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;and display It on the console 
;and go to operating system 



;preseve flags and reg A 

; select print string function 

; restore flags and reg A 



This subroutine displays the time on the system console, 
unbuffered CP/M console output function. 



CALL 


SHOERR 


JMP 


BOOT 


9 

; This subroutine dls 


SHOERR: PUSH 


PSW 


MVI 


C,9 


CALL 


BDOS 


POP 


PSW 


RET 





It uses the 



SHOTIM: 


SUB 


A 




ORA 


C 




RZ 




SHOT1 : 


LDAX 


D 




INX 


D 




PUSH 


D 




PUSH 


B 




MOV 


E,A 




MVI 


C,2 




CALL 


BDOS 




POP 


B 




POP 


D 




OCR 


C 




JNZ 


SH0T1 




MVI 


E,LF 




MVI 


C,2 




CALL 


BDOS 




RET 





;clear reg A 

;see If count Is zero 

;.. count Is zero, so do not print anything 

;get the character 

; point to next 

; preserve pointer from damage by CP/M 

; preserve counter from damage by CP/M 

;put the character in reg E as needed by CP/M 

; select console output function 

;get character counter again 

;get character pointer again 

; decrement the count 

;..loop until all characters printed 

;finlsh with a line feed 



END 



**** MTSAMPL.PAS **** 

This program performs the same functions as BISAMPL.BAS and BCSAMPL.BAS. It Is written in Pascal 
MT+ (a product of MT Microsystems, Inc.). It requires the program MT488.MAC, which is an 
assembler program which performs the necessary parameter passing conversions. The listing of 
MT488.MAC follows MTSAMPL.PAS. 

The major difference between MTSAMPL and BISAMPL Is that MTSAMPL has a 14th menu Item, namely, 
the option of returning to the operating system. This option was not needed In BISAMPL or 
BCSAMPL since Microsoft Basic wi I I abort a program when It detects a Control C typed on the 
console. 

One point that you should notice Is that al I of the formal parameters of the MSOFT functions 
(external procedures pcntl through pioprt) are variable parameters (denoted by var ). Pascal 
passes variable parameters by reference Instead of by value. This means that Pascal will pass to 
MT488 (and thence to MSOFT) the addresses of the parameters instead of the values. MSOFT 
requires the addresses, so remember that you must declare the parameters of the MSOFT functions 
to be variable parameters. 

The following dialog shows how to compile the program MTSAMPL.PAS, assemble MT488.MAC, and link 
these programs with MSOFT. REL. The result is an executable file named MTSAMPL.COM. Since 
Pascal/MT+ uses the extension .ERL to denote relocatable (linkable) files, we rename MT488.REL 
and MSOFT. REL to MT488.ERL and MSOFT. ERL, respectively. 
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B>MTPLUS MTSAMPL<CR> 



Pascal/MT+ Release 5.2 
(c) 1980 MT MIcroSYSTEMS 

8080/Z80 Target CPU 



Source I ines: 396 
Ava liable Memory : 1 2743 
User Table Space: 8747 
V5.2 Phase 1 
############ 
Remaining Memory: 6942 
V5.2 Phase 2 
8080 



INITVAR 


39 


ERRREPOR 


99 


GETCMD 


1145 


GETKEY 


2317 


PUTCHR 


2362 


APND 


2392 


CHARDEL 


2446 


GETSTR 


2474 


RESULTS 


2790 


GETPROTO 


2937 


PRNYN 


3653 


GETECHO 


3722 


SAMPLE 




Lines : 


396 


Errors: 





Code : 


5564 


Data : 


472 



Compilation Complete 

B >M80 =MT488<CR> 

No Fatal error (s) 

B >REN MT488.ERL=MT488.REL<CR> 

B >REN MSOFT. ERL=MS0FT. REL<CR> 

B >LI NKMT MTSAMPL*MTSAMPL,MT488,MS0FT,PASLl B/S<CR> 

Llnk/MT+ 5.2b 

Processing file- MTSAMPL .ERL 

Process I ng file- MT488 . ERL 

Processing file- MSOFT .ERL 

Processing file- PASLIB .ERL 

Undefined Symbols: 

No Undefined Symbols 

0115 (decimal) records written to .COM file 

Total Data: 06F5H bytes 
Total Code: 3216H bytes 
Remaining : 7165H bytes 
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Llnk/MT+ processing ccxnpleted 
B> 

**** MTSAMPL.PAS Listing **** 



program sample; 
const 



SEQNUM =0019; 
TITLE = 0; 
maxstr » 71; 



(*edlttng sequence number*) 
(*last edited ( 4/09/82-12:50)*) 
(*maximum length of input string*) 



Let the operator test each function and observe the response 

Control characters (such as line feed and carriage return) can 
be entered into the TALK and CONTROL strings by preceding the 
control character with an ESCAPE, For example, to get the string 
1234<ESCAPE>$#<RETURN><LINE FEED> you would type 
1 234<ESCAPE><ESCAPE>$*<ESCAPE><RETURN><ESCAPE><L I NE FEED><RETURN> 



*) 



var er code, time, poll, bus : integer; 
eot, eos, I en : integer; 
echo In, echo out : integer; 

stop_flag : boolean; (*determines if the user wants to abort*) 

cmd : integer; (*holds number of command to execute*) 



be! I : char; 
bs : char; 

str : string[2551; 
funct : stringl201; 
presp : string; 



port : integer; 



(*holds ASCII BEL code*) 
(*holds ASCII back space code*) 

(*string for general usage*) 
(*holds type of function for result report*) 
(*used for serial poll to return address of*) 
(* the device responding to the poll*) 

(*used when setting the P&T-488 port number*) 



(* 



externa I 
external 
externa I 
external 
external 
external 
external 
externa I 
external 
external 
external 
external 
externa I 



The following are the declarations for the external procedures that 
are used to communicate to the 488 bus. Note that not a IT of them 
are used by this program. *) 

procedure pent! (var s: string); 
procedure pent I c (var s: string); 
procedure ptalk (var s: string); 
procedure ptalkc (var s: string); 
procedure plstn (var s:string); 
procedure plstnc (var s: string); 
procedure pspol I (var os,is : string); 
procedure pppol I; 
procedure pdren; 
procedure pren; 
procedure pstat; 
procedure plfc; 
procedure pbrset; 



rev 4-14-82 12:54 



MS0FT-43 



MTSAMPL.PAS 



P&T-488 MSOFT User's Manual 



external procedure ploset (var ec,tv,pr,bs : Integer); 

external procedure pprot (var eot,eos,sl : Integer); 

external procedure pecho (var ei,eo : integer); 

external procedure ploprt (var port: Integer); 

(* The following external function allows direct access to BDOS functions*) 

external function £BDOS (f: Integer ; p:word) : integer; 



( * 1 N | jvar *) 

procedure Inltvar; 

<* Procedure to call the setup routines to tell MSOFT where the control 

variables are. *) 
begin 

pioset (er code, time, poll, bus); 

pprot (eot, eos, I en); 

pecho (echo In, echo out); 

bel I :*chr(7); 

bs:=chr(8); 
end; 



(* , ERR_REPORT~ *) 

procedure err report; 

(* Procedure to report the meaning of the error code. *) 

begin 

if er_code<>0 then 

if (er code<0) or (er code>255) then 

writeln( f SYSTEM ERROR - an illegal error code has been encountered 1 ) 
else begin 

if tstbit(er_code,7) then 

writelnCS-100 RESET - reset interface (Use Function 6 or 7)'); 
if tstbit(er code, 6) then 

writelnC IFC TRUE - reset 488 interface'); 
if tstbit(er_code,5) then 

writelnCATN TRUE - an external controller is trying to issue a command'); 
if tstblt(er code, 4) then begin 
writeln( 'TIMEOUT ERROR - the specified amount of time has elapsed without'); 
writelnC completing a 488 handshake cycle'); 

end; 
if tstbit(er_code,3) then 

writelnC SERVICE REQUEST - a 488 device is requesting service'); 
if tstbit(er code, 2) then begin 
writelnCSERIAL POLL ADDRESS ERROR - no more than one secondary address 1 ); 
writelnC may follow a primary address 1 ); 

end; 
if tstblt(er_code,1) then 

writelnCNO LISTENERS - I cannot talk to myself); 
if tstbit(er_code,0) then begin 
wrltelnCSETUP ERROR - either IOSET or PROTCL wasn"t called before'); 
writelnC using one of the MSOFT communication functions'); 

end; 
end; 
end; 



(* . „ — — -get_CMD- *> 

function get cmd : integer; 
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(* 



Function to present menu and Input the code for the bus function 



to perform, 
I : Integer; 



var 
begin 
repeat 

wrlteln; writeln; 



*) 

(^variable for entry of function code*) 



wrlteln( 
writeln( 
wrlteln( 
wrlteln( 
wrlteln( 
wrlteln( 
wrlteln( 
wrltelnC 
wr I te I n ( 
writeln( 
wrltelnC 
writeln( 
wrltelnC 
wrltelnC 



1. CONTROL Become the Controller and output a command string 1 ); 

2. TALK Become a Talker and send a string'); 

3. LISTEN Become a Listener and receive a string 1 ); 

4. REMOTE Make the REN (Remote ENable) 1 1 ir*e true 1 ); 

5. LOCAL Make the REN line false'); 

6. IFC Issue an IFC (InterFace Clear) command'); 

7. RESET Reset the P&T 488 Interface'); 

8. STATUS Display the current 488 bus status'); 

9. SPOLL Perform a Serial Poll of the 488 bus'); 

10. PPOLL Perform a Parallel Poll of the 488 bus'); 

11. Change the communication protocol (EOT switch, EOS, and string length)'); 

12. Change Input echo, output echo, and timeout values'); 

13. Change S-100 port numbers (DIP switch on P&T-488 card must agree)'); 

14. Exit to operating system'); 



wrlteln; 

wrlteCWhlch would you like to do? '); 

readln( I); 

If (!<1) or (l>14) then write(bell); 
until (l>0) and (i<15); 
get_cmd: = i; 
end; 



(* GET_KEY 

function get key ; char; 

(* This function returns the next character from the console Input.*) 

var ch : integer; 

begin 

repeat 

ch:=Sbdos(6,wrd(255)); 

until ch<>0; 

get key:-chr(ch); 
end; 



(* PUT_CHR *) 

procedure put chr (ch:char); 

(* This procedure puts a character out to the console using direct 

console I/O. *) 
var dumy : integer; 
begin 

dumy:=Gbdos(6,wrd(ch)); 
end; 



-GET STR- 



(* - _ 

procedure get str (var st : string); 

(* This procedure collects a string from the console with simple back 

space editing. Control codes may be entered by preceding them by 

an escape. *) 

var str I en : integer; (*var fable to track string length*) 

ch : char; (*variable for Input character*) 



-*) 
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(*.... .....(GETJTR) APND *) 

procedure apnd; 

(* This procedure is called to append a character onto the end of the 
string being collected. It adjusts the string length and rings the 
bell if the string is already at its maximum length. *) 
begin 

if str I en<maxstr then begin 
str I en : =succ ( str I en ) ; 
stlstrlen] :=ch; 
end 
else 

put chr( bell); 
end; 

(* (GETJTR) CHARDEL *> 

procedure chardel; 

(* This procedure is called to delete a character. It outputs <space> 

<back space><space>. *) 
beg in 

put_chr(bs); put_chr( f f ); putjshr(bs); 
end; 

begin (*GETJTR*) 

strlen:=0; (*set length to 0*) 

ch: st f ; (*lnit ch to a non-carriage return*) 

writeC STRING: '); 

while ord(ch)<>13 do begin (^collect until a carriage return*) 
ch:=get key; (*get a character from the console*) 

if (ch>=» t> a nd (ch<= |W «) then begin 
apnd; C*append character onto string*) 

putjshr(ch); (*also echo it to the screen*) 

end 
else (*perform various control character fens*) 

case ord(ch) of 
8: if strlen>0 then begin (*back space => delete char*) 

if stlstrlenK 1 » then chardel; (*need to delete 2 if ctl chr*) 

chardel; 

strlen^predCstrlen); (*adjust string length*) 

end; 

27: begin 

ch:=get_key; (*get character after ESC to*) 

apnd; (* put into string*) 

(*echo as printing char proceeded by ©*) 

putj:hr( f €>'); put_chr(chr(ord(ch)+64)); 

ch:= f f ; (*make sure ch is not a carriage ret*) 
end; 

13: ; 

else put_chr(bel I); (*ring bell for invalid chars*) 
end; 
end; 
stl01:=chr(strlen); (*set length byte of the returned str*) 

end; 
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(* RESULTS *> 

procedure results; 

(* This procedure reports the results of a function, *) 

begin 

write In; 

writelnCFunction = ',funct, f Error Code » ',er_code); 

i f er_code=0 then wr i te I n ( * NORMAL RETURN ' ) 
else err report; 
end; 



(* GETPROTO *) 

procedure getproto; 

(* This procedure allows the user to set the EOT switch, EOS value, 

and the string length, *) 
begin 

writeln;wrlteln; 

write In ('The current communication protocol setup Is:'); 

wrlteln; 

writelnC EOT switch * ',eot); 

writelnC EOS value = f ,eos); 

writelnC String length * ' ,len); 

wrlteln; 

writeCWhat is the new EOT switch value? f ); readln(eot); 

repeat 

writeCWhat is the new EOS value (0..255)? '); readln(eos); 

if (eos<0) or (eos>255) then 
writelnCThe EOS value must be between and 255!'); 
until (eos>=0) and (eos<=255); 

repeat 

writeCWhat is the new String Length (0..255)? '); read I n( I en); 

if <ien<0) or (len>255) then writelnC LENGTH must be between and 255!'); 
until (len>=0) and (len<=255); 

wrlteln; 
end; 



( * GETECHO *) 

procedure getecho; 

(* This procedure a I lows the user to respecify the input and output 

echo switches and the timeout. *) . 
var temp : string! 10); 

(*...... (GETECHO) PRNYN *) 

procedure prnyn (v: Integer); 

(* This procedure prints f N' if the passed parameter is and 'Y' 

otherwise*) 
begin 

If v=0 then writeln('N') else writeln('Y'); 
end; 

begin (*GETECH0*) 

writeln; wrlteln; 
writelnCThe Input Echo, Output Echo, and Timeout are currently set to:'); 
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write In; 

write ■:{• Input Echo •.); prnynCecho fn); 

write ( f Output Echo f ); prnyn(echo_out); 

writelnC Timeout Value f ,time); 

wrlteln; 

repeat 

temp:=' '; 

writeCEcho Input (Y/N) : '); readln(temp); 
until tempi 11 in I 'Y' ,'y f ,'N' ,' n' J; 
if tempi 11 in l'Y','y f l then echo_Jn:=1 else echo ln:=0; 

repeat 

temp:=' f ; 

writeCEcho Output (Y/N) : '); read(temp); 
until templll in I 'Y' ,'y' ,'N' ,'n f 1; 
if templll in I f Y f , f y f 1 then echo outs«1 else echo out:=0; 

repeat 

wrlteOWhat is the new TIMEOUT value (0.. 255)? «); readln(time); 
if (time<0) or (time>255) then 
writeln( f The TIMEOUT value must be between and 255!'); 
until (time>*0) and (time<*255); 
write In; 
end; 



begin (*main program*) 

initvar; (^initialize variables for control of MSOFT*) 

repeat 

cmd:=get cmd; (*g©t the function to perform*) 
er code:=0; (*clear error code*) 
case cmd of 

1 : beg i n 

writeln( f Please enter the Control string 1 ); 
getjstr(str); 
funct;=' CONTROLLER'; 
pcntl(str); 
end; 

2: begin 

writeln( 'PI ease enter the Talk string'); 
get str(str); 
funct:='TALKER»; 
ptalk(str); 
end; 

3 1 beg l n 

funct:*' LISTENER'; 

plstn(str); 

writelnC String heard on 488 bus is:'); 

writeln(str); 

end; 

4 : beg i n 

funct:='REM0TE ENABLE'; 
pren; 
end; 
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6: 



begin 

funct:*' REMOTE DISABLE'; 

pdren; 
end; 

begin 

funct:=» INTERFACE CLEAR'; 

plfc; 
end; 



7 : beg I n 

funct:*' RESET P&T 488'; 
pbrset; 
end; 

8 : beg i n 

funct:*' STATUS'; 
pstat; 

wrltelnCBus Status Is: ',bus); 
end; 

9: begin 

funct:='Serlal Poll'; 

wrlteln( 'Please enter Talk addresses to poll'); 
get str(str); 
writeln; 

pspol I (str,presp); 

writeln( 'Talk address of responding device is ',presp); 
writelnCPol I responses f ,poll); 
end; 

10: begin 

funct:='Parallel Poll'; 
pppoll; 

writelnCPol I response = f ,poll); 
end; 



11 
12 
13 



14: 
end; 



getproto; 

getecho; 

begin 

writeCWhat is the new S- 100 port number (0-255)? '); 

read I n( port); 

ploprt(port); 
end; 

stop.f lag: s true; 



If cmd<11 then results; 
until stopflag; 
end. 
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**** MT488.MAC **** 

The program MT488.MAC performs all the parameter passing conversions necessary for a program 
written in Pascal MT+ to work with MSOFT. REL. Pascal MT+ passes parameters on the stack and 
expects the called routine to remove them from the stack before returning. MT488.MAC takes the 
parameters from the stack and puts them into the appropriate registers and tables for MSOFT. 

title 'Interface routines from Pascal/MT+ to MSOFT 1 

SEQNUM EQU 0009 

; The following are the entry points into MSOFT 
extrn cntl # cntlc,tal k,talkc, Istn 
extrn lstnc,spol I ,ppol I ,dren,ren 
extrn status, ifc,brset,ioset f protc I 
extrn echo,Ioport 

; the fol lowing are the names used by MT+ programs to cal I the 
; MSOFT routines 

entry pent I , pcntlc, ptalk, ptalkc, plstn 

entry plstnc, pspol I , pppoll, pdren, pren 

entry pstat, pifc, pbrset, pioset, pprot 

entry peeho, pioprt 



General routine to call an MSOFT routine that has 1 string passed 

to it 

on entry: DE =*> address of MSOFT routine to call 



strl: 



pop 


b 


pop 


h 


mov 


a,m 


sta 


dumyl 


inx 


h 


shld 


dumyl a 


Ixi 


h,dumy1 


push 


b 


push 


d 


ret 





;get return address 
;get address of string 
;get length of string 

;save address of string 

;get address of string pointer block 
;put return address back on stack 
;jump to target routine 



pent I : 


Ixi 


d,cntl 




jmp 


strl 


pcntlc: 


Ixi 


d,cntlc 




jmp 


strl 


ptalk: 


Ixi 


d,talk 




jntp 


strl 


ptalkc: 


Ixi 


d,talkc 




jmp 


strl 


p 1 stn : 


pop 
xthl 


h 



;get address of MSOFT routine 



; get return address 

;swap it with address of MT+ string on stack 
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shld 



mtstr 



;save address where It won't be harmed 



I scomn : 



Islup: 



plstnc: 



Ixt 


h, dumyl 


push 


h 


call 


Istn 


pop 


d 


Idax 


d 


1 hid 


mtstr 


mov 


m,a 


ora 


a 


rz 




mov 


b,a 


! nx 


d 


Idax 


d 


mov 


c,a 


Inx 


d 


Idax 


d 


mov 


d,a 


mov 


e,c 


Inx 


h 


Idax 


d 


mov 


m,a 


Inx 


h 


inx 


d 


dcr 


b 


jnz 


Islup 


ret 




pop 


h 


xthl 





; point to place for dope vector 
;save address on stack 
;cal I I isten routine 

;get dope vector address into DE 
;get length of returned string 
•get address of MT+ string 
;set length of returned string 
;just return on length 

;save length in b 

; point to addr field of dope vector 

;get low byte of address 

;save it 

;hlgh byte of addr field 

;get it 

;DE holds address of MSOFT string 
;skip over count field of MT+ string 

; transfer a character 

; I ncrement po i nters 

; decrement count 
; loop ti 1 1 done 



;get return address 

;swap it with address of MT+ string on stack 



shld 



mtstr 



;save address where it won't be harmed 



Ixi 


h, dumyl 


push 


h 


call 


Istnc 


jmp 


1 scomn 


pspol 1 : pop 


b 


pop 


h 


shld 


mtstr 


pop 


h 


mov 


a,m 


sta 


dumyl 


inx 


h 


shld 


dumyla 


push 


b 


Ixi 


h, dumyl 


Ixi 


d,dumy2 


push 


d 


call 


spol 1 


jmp 


1 scomn 



; point to place for dope vector 
•save address on stack 
;cal I listen routine 



;save return address 

; get address of string 2 

;save it in a safe place 

;get address of string 1 
;set up dummy dope vector 



; restore return address 



;put address of dummy dope vector on stack 

;cal I serial poll routine 

;jump to routine to pass string back to MT+ 
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pppot I : 


jmp 


ppol 1 


pdren: 


jmp 


dren 


pren: 


jmp 


ren 


pstat: 


jmp 


status 


pifc: 


jmp 


Ifc 


pbrset: 


jmp 


brset 


ploset: 


pop 


b 




pop 


h 




shld 


dumy4 




Pop 


h 




shld 


dumy3 




pop 


d 




pop 


h 




push 


b 




Ixl 


b,dumy3 




jmp 


ioset 


pprot: 


pop 


h 




pop 


b 




pop 


d 




xthl 





jmp 



protc I 



;save return address 

;get address of bus status variable 

;get address of poll result variable 

;get address of timeout value variable 
;get address of error code variable 
; restore return address 
; point to additional parameters 
;jump to MSOFT routine 

/ 
;save return address 

;get address of string length variable 

;get address of EOS variable 

;hl * address of EOT switch variable 

;tos » return address 

;jump to MSOFT routine 



pecho: 


pop 


b 




POP 


d 




pop 


h 




push 


b 




jmp 


echo 


ploprt: 


pop 


b 




pop 


h 




push 


b 




jmp 


loport 


dumyl: 


db 





dumyla: 


dw 





dumy2: 


db 





dumy2a: 


dw 





dumy3: 


dw 





dumy4: 


dw 





mtstr : 


dw 
end 






;save return address 

;get address of echoout variable 

;get address of echo in variable 

; restore return address 

;jump to MSOFT routine 

;save return address 

;get address of port variable 

; restore return address 
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**** MTCLOCK.PAS **** 

This program performs the same function as the Basic program BICLOCK, but this one Is written In 
Pascal MT+. Like BICLOCK, MTCLOCK Initializes the 488 bus with an I nterface Clear, puts the 
HP59309 clock Into the Remote state by making the REN line true and sending the clock's listen 
address. It then addresses the clock as a Talker and listens to the data (status, date and time) 
that the clock sends over the bus, MTCLOCK displays the date and time on the console each time 
the minutes change. It also displays the data each time the status character Indicates a clock 
error, 

program mtclock; 



const 



SEQNUM =0012; 



(*edltlng sequence number*) 



This Is a Pascal/MT+ program which addresses an HP 59309A clock 
as a talker and then reads the time and date. It continually 
rereads the time and displays the time and date on the console 
each minute. 

The program assumes that the bus output format of the 59309A is 
set to SPACE, CAL and COLON, It also assumes that the talk address 
of the clock is "E" and the listen address is "%". *) 

er code, time, poll, bus : Integer; 
eot, eos, len : Integer; 
echo In, echo out : Integer; 



o I dm In : char; 



(*holds the previous value of minutes*) 



(* The following are the declarations for the external procedures that 
are used to communicate to the 488 bus. Note that not a 1 1 of them 
are used by this program, *) 

external procedure pent I (var s: string); 

external procedure pent I c (var s: string); 

external procedure ptalk (var s: string); 

external procedure ptalkc (var s: string); 

external procedure plstn (var s: string); 

external procedure plstnc (var s: string); 

external procedure pspol I (var os,Is : string); 

external procedure pppoll; 

external procedure pdren; 

external procedure pren; 

external procedure pstat; 

external procedure plfc; 

external procedure pbrset; 

external procedure pioset (var ec,tv,pr,bs : integer); 

external procedure pprot (var eot, eos, si : integer); 

external procedure pecho (var el ,eo : Integer); 

(* The following external function allows direct access to BOOS functions*) 
external function 8BD0S (f: Integer ; p:word) : integer; 



(« 

procedure inltvar; 



-INITVAR- 



-*) 
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(* Procedure to call the setup routines to tell MSOFT where the control 

variables are. *) 
begin 

ploset (er code, time, poll, bus); 

pprot (eot, eos, I en); 

pecho (echo_Jn, echo out); 
end; 



(* . ERRREPORT— *) 

procedure err report; 

(* Procedure to report the meaning of the error code, *) 

begin 

If er_code<>0 then 

If (er_code<0) or (er code>255) then 

writeln( 'SYSTEM ERROR - an illegal error code has been encountered 1 ) 
else begin 

if tstbit(er_code,7) then 

writeln( f S-100 RESET - reset interface (use function IPC or BRSET)'); 
if tstbit(er_code,6) then 

writelnC IFC TRUE - reset 488 interface'); 
if tstbit(er_code,5) then 

writelnCATN TRUE - an external controller is trying to issue a command'); 
if tstbit(er code, 4) then begin 
writeln( 'TIMEOUT ERROR - the specified amount of time has elapsed without'); 
writelnC completing a 488 handshake cycle 1 ); 

end; 
if tstbit(er_code,3) then 

writelnCSERVICE REQUEST - a 488 device is requesting service'); 
If tstbit(er code, 2) then begin 
writelnCSERIAL POLL ADDRESS ERROR - no more than one secondary address'); 
writelnC may follow a primary address'); 

end; 
if tstbit(er_code,1) then 

writelnCNO LISTENERS - I cannot talk to myself); 
if tstblt(er code,0) then begin 
writelnCSETUP ERROR - either IOSET or PROTCL wasn"t called before'); 
writelnC using one of the MSOFT communication functions'); 

end; 
end; 
end; 



(* 1 n ITBUS *) 

procedure inltbus; 

(* Procedure to initialize the bus and set various control variables. *) 

var ctlstr : string! 101; 

begin 

pifc; (*do an interface clear*) 

pren; (*make the REN line true*) 

ctlstr :='?_*'; (*Unlisten, Untalk, listen address %*) 

pent! c( ctlstr); (*become the controller and output CTLSTR*) 

(* This puts the clock into the REMOTE mode*) 

if er codo<>0 then err report; (*report any bus errors*) 

time:=255; (*do not time handshake*) 

eot:=1; (*stop on End-Of-String byte*) 

eos: =10; (*make I Ine feed the EOS byte*) 

oldmin:-'x'; (*set oldmln to some value which cannot match a clock*) 
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(* reading*) 
end; 



function read time : boolean; 

(* Function to read the clock and display results on the console. 

Does not return until either the user aborts operation or a bus error 
occurs. Returns true if the user aborts or a clock error occurs. 
Returns false if a bus error occurred. *) 
var reading : string 1 128 J; (*string to read clock into*) 
check : integer; (*used for abort checking*) 

ctlstr : string! 101; (*used to send control string*) 

begin 
repeat 
ctlstr:*' ?_E'; (*set control string for Unlisten, Untalk, Talk addr E*) 
pcntlc( ctlstr); (*send control string*) 
if er codeoO then err report (*report any errors*) 
else begin 

p I stnc( reading); (*read the clock*) 

if er code<>0 then err report (*report any errors*) 
else begin 

(*if the first character is a ? then the clock is in error*) 
if readingM 1=*'?' then begin 
writeln( 'Clock error ', reading); 
writeln( 'Reset clock 1 ); 
end 
else (*show the time if the minutes have changed*) 

If readingN3K>oldmin then wrlteln(reading); 
o I dm i n : »read I ng [ 1 3 1 ; 
end; 
check:-gbdos(6,wrd(255)); (*check for character at keyboard*) 
end; 
until (er_code<>0) or (readingll 1='?' ) or (check=3); 
read tfme:"(checte*3) or (readingl 1 1='?' ); (*set returned value*) 
end; 



begin (*main program*) 

initvar; (initialize variables for control of MSOFT*) 

repeat 

initbus; (initialize bus*) 

until read_tlme or (gbdos(6,wrd(255))=3); 
end . 
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**** FSAMPL.FOR **** 

This program performs the same function as the Basic program BISAMPL, but this one is written in 
Microsoft Fortran. 

The foi lowing diaiog shows how to compiie the Fortran program FSAMPL.FOR, assemble the assembler 
program STRIN.MAC, and then link these two programs with MSOFT.REL. The result is an executable 
file named CL0CK.COM. 

B >F80 =FSAMPL<CR> 

$MAIN 

ERRMSG 

STRXFR 

IUNSGN 

B >M80 =STR1N<CR> 

No Fatal error (s) 

B >L80 FSAMPL/E, FSAMPL/N , MSOFT, STR I N<CR> 

Link 80 3.42 19-Feb-81 Copyright (c) 1981 Microsoft 

Data 0103 3DAD <15530> 

23862 Bytes Free 
109BF 3DAD 611 

B> 



C FORTRAN driver for MSOFT 

C FSAMPL.FOR revised 4/8/82 by J. Tinsman 

C 

C NOTE: The name that MBASIC uses for the echo out variable 

C < is ECH00UT, but the longest variable name FORTRAN will 

C accept is ECH0UT (6 characters). This program uses the 

C substitute name ECH0UT. 

C 

C Let the operator test each function and observe the response 

C 

C Control characters (such as line feed and carriage return) can 

C be entered into the TALK and CONTROL strings by proceeding the 

C control character with an ESCAPE. For example, to get the string 

C 1234<ESCAPE>$*<RETURN><LINE FEED> you would type 

C 1234<ESCAPE><ESCAPE>$?<ESCAPEXRETURN><ESCAPE><L I NE FEED><RETURN>. 

C 

C 

C 

INTEGER ERC0DE,TIME,E0T,E0S,LENGTH,P0LL,ECH0IN,ECH0UT,BUS 

INTEGER l,J,P,F,BELL,BUFLEN 

BYTE BUFFER(255),TKADDR(5) 

DOUBLE PRECISION FCL,FCH,FCNS(2,12) 
C 

DATA FCNS /'C0NTR0LL', f ERV TALKER f , f '/LISTENER', 1 '/REMOTE E\ 
_'NABLE' /REMOTE D' / ISABLE' / INTERFAC /E CLEAR' /RESET P&'/T', 
'STATUS'/ '/SERIAL P'/0LL' /PARALLEL'/ POLL'/ «/ «/ »/ V 
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DATA ERCODE, TIME, EOT,EOS, LENGTH, POLL, ECHOIN,ECHOUT, BUS /9*0/ 
C 

BELL=7 

BUFLEN=255 
C 

C Pass variable names that FSAMPL will be using to MSOFT 
C 

CALL IOSET (ERCODE,TIME,POLL,BUS) 

CALL PROTCL (EOT, EOS, LENGTH) 

CALL ECHO (ECHOIN,ECHOUT) 
C 
C 

Q SSS3SSSSS3S3SSS3333S3SSSS3SSS3SSS333aSSSSS3SSS33SSSSSSa 

C Main Menu 
C 

530 WRITE (1,531) 

531 FORMAT CO 1 ) 
WRITE (1,541) 

541 FORMATS 1. CONTROL Become the Controller and output a command 
string') 



FSAMPL. FOR 



WRITE (1,551) 
551 FORMAT ( 

WRITE (1 
561 FORMAT ( 

WRITE (1 
571 FORMAT ( 

WRITE (1 
581 FORMAT ( 

WRITE (1 
591 FORMAT ( 

WRITE (1 
601 FORMAT ( 

WRITE (1 
611 FORMAT ( 

WRITE (1 
621 FORMAT ( 

WRITE (1 
631 FORMAT ( 

WRITE (1 
641 FORMAT ( 



WRITE (1 
651 FORMAT ( 



2. TALK 
561) 

3. LISTEN 
571) 

4. REMOTE 
581) 

5. LOCAL 
591) 

6. IFC 
601) 

7. RESET 
611) 

8. STATUS 
621) 

9. SPOLL 
631) 

10. PPOLL 



Become a Talker and send a string 1 ) 
Become a Listener and receive a string 1 ) 
Make the REN (Remote ENable) line true 1 ) 
Make the REN line false 1 ) 
I ssue an I FC (I nterFace CI ear) command' ) 
Reset the P&T 488 interface' ) 
Display the current 488 bus status') 
Perform a Serial Poll of the 488 bus') 
Perform a Para! lei Pol I of the 488 bus') 



641) 
11. Change the communication protocol (EOT switch, EOS, 



and string length)') 



651) 



12. Change Input echo, output echo and timeout values') 

WRITE (1,671) 
671 FORMAT ( '0', 'Which would you like to do? ') 

READ (3,673) F 
673 FORMAT (15) 

680 IF (F.GT.0.AND.F.LT.13) GOTO 690 
WRITE (1,681) BELL 

681 FORMAT (' »,A1) 
GOTO 530 

690 WRITE (1,691) 

691 FORMAT (' ') 

ERCODE=0 

FCH=FCNS(1,F) 

FCL=FCNS(2,F) 
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C 
720 IF (F.NE.1) GOTO 790 

WRITE (1,731) 
731 FORMAT ( f Please enter the Control string') 
C Get string to send as a controller 

CALL STRIN ( BUFFER, BUFLEN) 
C Send out the command string 

CALL CNTL (BUFFER) 

GOTO 1790 
C 
C 
790 IF (F.NE.2) GOTO 860 

WRITE (1,801) 
801 FORMAT <♦ Please enter the Talk string') 
C Get str I ng to send as a ta I ker 

CALL STRIN (BUFFER, BUFLEN) 
C Send out the talk string 

CALL TALK (BUFFER) 

GOTO 1790 
C 
C 

860 IF (F.NE.3) GOTO 940 
C 

C Read string off bus into P&T 488 buffer and make string descriptor 
C In the first three elements of array BUFFER 

CALL LSTN (BUFFER) 
C Transfer contents of P&T 488 buffer into array BUFFER 

CALL STRXFR (BUFFER, BUFLEN) 

WRITE (1,901) 
901 FORMAT (' String heard on 488 bus Is: ') 

J=IUNSGN(BUFFER(1))+3 

WRITE (1,911) (BUFFER(I),I=4,J) 
911 FORMAT (' f ,255A1) 

GOTO 1790 
C 
C 

940 IF (F.NE.4) GOTO 990 
C 
C Make REN I ine true 

CALL REN 

GOTO 1790 
C 
C 

990 IF (F.NE.5) GOTO 1040 
C 
C Make REN I ine false 

CALL DREN 

GOTO 1790 
C 
C 

1040 IF (F.NE.6) GOTO 1090 
C 
C Issue an IFC command 

CALL IFC 

GOTO 1790 
C 
C 
1090 IF (F.NE.7) GOTO 1140 
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C 

C Reset the P&T 488 

CALL BRSET 

GOTO 1790 
C 
C 
1140 IF CF.NE.8) GOTO 1200 

CALL STATUS 

WRITE (1,1161) BUS 
1161 FORMAT (' Bus status is: « ,13) 

GOTO 1790 
C 
C 
1200 IF (F.NE.9) GOTO 1300 

WRITE (1,1211) 
1211 FORMAT ( f Please enter Talk address to poll 1 ) 
C 
C Get talk address string 

CALL STRIN ( BUFFER, BUFLEN) 

WRITE (1,1231) 
1231 FORMAT ( f ') 
C 

C Send out Talk string and put response in P&T 488 string buffer, 
C Then put string descriptor for response in the first three 
C elements of TKADDR. 

CALL SPOLL (BUFFER,TKADDR(D) 

IF (TKADDR(3).NE.O) GOTO 1260 

I st ' 

TKADDR(4)»I 

TKADDR(5)=I 
C Transfer response from P&T 488 buffer to array TKADOR 

1260 CALL STRXFR (TKADDR,5) 

WRITE (1,1261) TKADDR(4),TKADDR(5) 

1261 FORMAT (• Talk address of device responding is f ,2A1) 
WRITE (1,1271) POLL 

1271 FORMAT ( f Poll reaponse « »,I3) 
GOTO 1790 
C 
C 

1300 IF (F.NE.10) GOTO 1360 
C 

C Perform parallel poll 
CALL PPOLL 
WRITE (1,1331) POLL 
1331 FORMAT ( f Poll response » f ,l3) 
GOTO 1790 
C 
C 
1360 IF (F.NE.11) GOTO 1560 

WRITE (1,1371) 
1371 FORMAT <« «) 

WRITE (1,1381) 
1381 FORMAT OO'/The current communication protocol setup is: 1 ) 
WRITE (1,1371) 
WRITE (1,1401) EOT 
1401 FORMAT ( f ' ,10X, f EOT switch = f ,l3) 

WRITE (1,1411) EOS 
1411 FORMAT (' »,10X,'E0S switch » »,I3) 
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WRITE (1,1421) LENGTH 
1421 FORMAT (' »,10X, 'String length = ',13) 

WRITE (1,1441) 
1441 FORMAT ( f O f , 'What Is the new EOT switch value: ') 

READ (3,1445) EOT 
1445 FORMAT (14) 

1450 WRITE (1,1451) 

1451 FORMAT (' What Is the new EOS value; ') 
READ (3,1445) EOS 

IF (E0S.GE.0.AND.E0S.LT.256) GOTO 1490 
WRITE (1,1471) 
1471 FORMAT (« The EOS value must be between and 255!!!') 
GOTO 1450 

1490 WRITE (1,1491) 

1491 FORMAT (' What is the new string length: ') 
READ (3,1445) LENGTH 

IF (LENGTH # GE.0.AND.LENGTH.LT.256) GOTO 1530 
WRITE (1,1511) 
1511 FORMAT (' The LENGTH must be between and 255!!!') 
GOTO 1490 

1530 WRITE (1,1531) 

1531 FORMAT (' ') 
GOTO 530 

C 
C 
1560 IF (F.NE.12) GOTO 1790 

WRITE (1,1571) 
1571 FORMAT C0«) 

1581 FORMAT (' The Input Echo, Output Echo, and Timeout values are cu 
_rrently set to: ') 

P=*'N' 

IF (ECHOIN.NE.O) P='Y« 

WRITE (1,1611) P 
1611 FORMAT (' »,10X,» Input Echo f ,A1) 

P='N' 

IF (ECHOUT.NE.O) P='Y' 

WRITE (1,1621) P 
1621 FORMAT (' ' ,10X, 'Output Echo ',A1) 

WRITE (1,1641) TIME 
1641 FORMAT (' ' ,10X, 'Timeout Va I ue «,I3) 

1660 WRITE (1,1661) 

1661 FORMAT CO', 'Echo Input (Y/N) : ') 
READ (3,1671) P 

1671 FORMAT (A1) 

IF (P.NE.'Y'JWD.P.NE.'N'.AND.P.NE.8313.AND.P.NE.8302) GOTO 1660 

ECHOIN-0 

IF (P.EQ.'Y'.0R.P.EQ.8313) ECHOING 

1710 WRITE (1,1711) 

1711 FORMAT CO', 'Echo Output (Y/N) : ') 
READ (3,1721) P 

1721* FORMAT (AD 

IF (P.NE.'Y'.AND.P.NE,«N'.AND.P.NE.8313.AND.P.NE.8302) GOTO 1710 

ECH0UT=0 

IF (P.EQ.'Y'.0R.P.EQ.8313) ECHOUT=1 
1750 WRITE (1,1761) 
1761 FORMAT C What is the new TIMEOUT value: «) 

READ (3,1771) TIME 
1771 FORMAT (14) 
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IF (TIME.GE.0.AND.TIME.LT.256) GOTO 530 

WRITE (1,1781) 
1781 FORMAT ( f The TIMEOUT value must be between and 255! I !') 

GOTO 1750 
C 
C 

1790 WRITE (1,1791) 

1791 FORMAT CM 

CALL ERRMSG(ERCODE,FCH,FCL) 

GOTO 530 

END 
C 
C 

SUBROUTINE ERRMSG (ERCODE,FCH,FCL) 
C 

INTEGER ERC00E,I,J,K,I0,R9 
DOUBLE PRECISION FCH,FCL 
C 

C Report 488 Function Errors 

C 

WRITE (1,9031) FCH,FCL,ERCODE 
9031 FORMAT (' Function =* »,A8,A8,14X,' Error Code = ',13) 
C 

C Interpret Error codes and print error messages 
C 

IF (ERCODE.LT.O) GOTO 9370 
IF (ERCODE.NE.O) GOTO 9090 
WRITE (1,9085) 
9085 FORMAT (' NORMAL RETURN') 

RETURN 
9090 IF (ERC0DE.GT.255) GOTO 9370 
DO 9350 K*0,7 
i=7-K 
10=2**1 
R9*ERC0DE-I0 
IF (R9.LT.0) GOTO 9350 
ERC0DE=R9 
J=l+1 

GOTO (9160, 9190, 9210, 9240, 9260, 9290, 9310, 9330), J 
C 

9160 WRITE (1,9161) 

9161 FORMAT (' SETUP ERROR - either I0SET or PROTCL was not called be 
fore 1 ) 

C 

9170 WRITE (1,9171) 

9171 FORMAT (' using one of the MSOFT communication fun 
ct ions' ) 

GOTO 9350 
C 

9190 WRITE (1,9191) 

9191 FORMAT (' NO LISTENERS - I cannot talk to myself!') 
GOTO 9350 

C 

9210 WRITE (1,9211) 

9211 FORMAT (' SERIAL POLL ADDRESS ERROR - no more than one secondary 
address' ) 

9220 WRITE (1,9221) 
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9221 FORMAT (' may follow a primary addre 

_ss') 

GOTO 9350 
C 

9240 WRITE (1,9241) 

9241 FORMAT (' SERVICE REQUEST - a 488 device Is requesting service') 
GOTO 9350 

C 

9260 WRITE (1,9261) 

9261 FORMAT (' TIMEOUT ERROR - the specif ied amount of time has el aps 
_ed without') 

9270 WRITE (1,9271) 

9271 FORMAT (' completing a 488 handshake cycle' ) 
GOTO 9350 

C 

9290 WRITE (1,9291) 

9291 FORMAT (' ATN TRUE - an external controller Is trying to issue a 
command ' ) 

GOTO 9350 
G 

9310 WRITE (1,9311) 

9311 FORMAT (' IFC TRUE - reset 488 interface') 
GOTO 9350 

C 

9330 WRITE (1,9331) 

9331 FORMAT (' S-100 RESET - reset interface (use function I or R)') 
GOTO 9350 

C 

9350 CONTINUE 

9360 RETURN 
C 

9370 WRITE (1,9371) 

9371 FORMAT (' SYSTEM ERROR - an illegal error code has been encounte 
jred') 

9380 RETURN 

END 
C 
C 

C STRING TRANSFER ROUTINE 
C 

SUBROUTINE STRXFR (ARRAY, SIZE) 
C 

INTEGER l,J,SIZE,STRLEN,ADDR 

BYTE ARRAY 

DIMENSION ARRAY(SIZE) 
C 

STRLEN* I UNSGN ( ARRAY ( 1 ) ) 

ADDR=256*1 UNSGN(ARRAY(3) )+l UNSGN( ARRAY(2) ) 
C 

J*STRLEN+3 

IF (SIZE.GE.J) GOTO 9600 

WRITE (1,9505) 

9505 FORMAT (' THE STRING RECEIVED IS BIGGER THAN THE ARRAY GIVEN!!') 
WRITE (1,9506) SIZE 

9506 FORMAT (' Only the first ',13,' characters were transferred,') 
C 

DO 9520 1=4, SIZE 

ARRAY(I)=PEEK(ADDR) 
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ADDR=ADDR+1 
9520 CONTINUE 
RETURN 
C 
C 
9600 DO 9610 I =4, J 

ARRAY(I)=*PEEK(ADDR) 
ADDR=ADDR+1 
9610 CONTINUE 
C 

J=J+1 

DO 9620 l=J,SIZE 
ARRAY(l)=*0 
9620 CONTINUE 
RETURN 
END 
C 
C 
C FUNCTION IUNSGN 

INTEGER FUNCTION IUNSGN(M) 
C 

BYTE M 

INTEGER IUNSGN 
C 

IUNSGN*M 

IF (IUNSGN.LT.O) IUNSGN=IUNSGN+256 

RETURN 

END 



**** STRIN.MAC **** 

This assembly program Is used by FSAMPL.FOR to collect strings from the keyboard. It is the 
routine responsible for the capability of entering a control character (such as line feed or 
carriage return) in the string by preceding the control character with an ESCAPE. It is also 
responsible for displaying the string on the console, and allowing the operator to delete 
characters by pressing backspace. 

This routine was written in assembly language instead of Fortran because Fortran does not have 
string manipulation capability. This program could be written in Fortran but the code would be 
even more difficult to understand. 



STRIN (bufname,buf I en) 



4/8/82 



STRING INPUT ROUTINE FOR USE WITH MICROSOFT FORTRAN 
THIS ROUTINE EXPECTS TWO PARAMETERS TO BE PASSED TO IT: 

THE NAME OF THE BUFFER THE STRING IS TO BE PUT IN 

AND THE LENGTH OF THE BUFFER (UP TO 255) 

THE BUFFER ARRAY VARIABLE MUST BE OF BYTE TYPE. THE BUFFER LENGTH 
VARIABLE MUST BE OF INTEGER TYPE. THIS ROUTINE ONLY LOOKS AT THE 
LOW ORDER BYTE OF THE INTEGER VARIABLE. 

NOTE THAT THE ACTUAL USABLE BUFFER SIZE IS THE LENGTH PASSED-3. THIS IS 
BECAUSE THE FIRST THREE BYTES OF THE BUFFER ARE USED TO CREATE THE STRING 
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DESCRIPTOR THAT MSOFT NEEDS TO SEND OUT STRINGS. THE FIRST BYTE OF THE 
DESCRIPTOR GIVES THE STRING LENGTH; THE SECOND AND THIRD BYTES GIVE THE 
STRING'S STARTING ADDRESS. 

PUBLIC STRIN 



BDOS EQU 

DRCTIO EQU 

VERNUM EQU 

STROUT EQU 



BELL 

BS 

CR 

CARET 

ESC 

LF 

SPACE 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



0005 
06H 
OCH 
09H 

07H 

08H 

ODH 

05EH 

01 BH 

OAH 

020H 



BDOS JUMP VECTOR 
BDOS FUNCTION FOR UNBUFFERED I/O 
BDOS FUNCTION FOR CP/M VERSION NUMBER 
BDOS FUNCTION FOR STRING OUTPUT 

BELL 

BACKSPACE 

CARRIAGE RETURN 

CARET 

ESCAPE 

LINE FEED 

SPACE 



STRIN: 



MVI 

SHLD 

I NX 

MOV 

MOV 

I NX 

I NX 

MOV 

I NX 

MOV 

I NX 

SHLD 

XCHG 

MOV 

STA 



M,00 

LENPT 

H 

B,H 

C,L 

B 

B 

M,C 

H 

M,B 

H 

BUFPT 

A,M 
BUFMAX 



I NIT STRING LENGTH TO ZERO AND SAVE IN BUFFER 
SAVE POINTER TO LENGTH COUNT IN LENPT 
POINT HL TO WHERE STRING START ADDRESS WILL GO 
COPY HL INTO BC 

INCREMENT IT TWO TIMES TO GET 
ACTUAL STRING STARTING ADDRESS 
SAVE STRING STARTING ADDRESS 
INTO STRING DESCRIPTOR PART OF BUFFER 

iPOINT HL TO START OF STRING IN BUFFER 
SAVE STRING POINTER 

;GET MAX BUFFER LENGTH FROM LOW ORDER BYTE 
;0F BUFLEN VARIABLE AND SAVE IT 



MVI 

CALL 

MOV 

ORA 

JNZ 

MVI 

LXI 

JMP 



C, VERNUM 

BDOS 

A,H 

L 

STRIN1 

C, STROUT 

D,VERERR 

BDOS 



; CHECK FOR CP/M VERSION NUMBER 

RESULT IS RETURNED IN H,L 

IF EITHER H OR L <>0, THEN THE 

CP/M IS VERSION 2.0 OR LATER 

IF BOTH ARE ZERO, PRINT ERROR MESSAGE 



STRIN1: MVI C, STROUT ;PRINT PROMPT 

LXI D,PROMPT 

CALL BDOS 

SUB A 

STA BUFCT ; I N I T BUFFER COUNT 



STRIN2: CALL 
CPI 
JNZ 
LDA 
LHLD 
MOV 
LDA 



GETCHR 

CR 

STRIN3 

BUFCT 

LENPT 

M,A 

CR 



;GET A CHARACTER FROM CONSOLE 
; CHECK FOR CARRIAGE RETURN 

;GET STRING LENGTH 

;GET POINTER TO LENGTH DEST. IN BUFFER 

;SAVE STRING LENGTH IN BUFFER 

;SEND OUT CARRIAGE RETURN 
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JMP 



CHROUT 



STRIN3: 


CPI 


BS 




JZ 


BAKSPC 




CPI 


ESC 




JNZ 


STRIN4 




CALL 


GETCHR 




JMP 


STRIN5 


STRIN4: 


CPI 


SPACE 




JC 


STRIN2 


STRIN5: 


STA 


KEYBUF 




LDA 


BUFMAX 




SUI 


03 




MOV 


B,A 




LDA 


BUFCT 




CMP 


B 




JZ 


BUFFUL 




INR 


A 




STA 


BUFCT 




LHLD 


BUFPT 




LDA 


KEYBUF 




MOV 


M,A 




INX 


H 




SHLD 


BUFPT 




CALL 


PUTCHR 




JMP 


STRIN2 


BUFFUL: 


MVI 


A, BELL 




CALL 


CHROUT 




JMP 


STRIN2 


9 

GETCHR: 


MVI 


C,DRCTIO 




MVI 


E,OFFH 




CALL 


BOOS 




ANI 


07FH 




JZ 


GETCHR 




RET 




PUTCHR: 


STA 


PUTBUF 




CPI 


SPACE 




JNC 


CHROUT 




MVI 


A,CARET 




CALL 


CHROUT 




LDA 


PUTBUF 




AD1 


040H 


CHROUT: 


MVI 


C,DRCTIO 




MOV 


E,A 




JMP 


BDOS 


I 

BAKSPC: 


LDA 


BUFCT 




CPI 


00 




JZ 


STRIN2 




OCR 


A 




STA 


BUFCT 




CALL 


BACKUP 




LHLD 


BUFPT 




DCX 


H 



; CHECK FOR BACKSPACE 

CHECK FOR ESCAPE KEY 

IF NOT, THEN SKIP OVER ESCAPE HANDLER 

GET KEY FOLLOWING ESC 

SKIP CONTROL CHARACTER CHECK 

CHECK FOR CONTROL CHARACTER 

IF SO, IGNORE 

SAVE KEY 

GET MAX BUFFER SIZE 

SUBTRACT THREE TO GET TRUE BUFFER USAGE 

GET CURRENT BUFFER USAGE 

IF TWO ARE THE SAME, THEN BUFFER IS FULL 

JUMP TO BUFFER ERROR HANDLER 

INCREMENT COUNT 

SAVE IT , 

GET BUFFER POINTER 

GET KEY BACK 

SAVE CHARACTER IN BUFFER 

INCREMENT BUFFER POINTER 

SAVE IT 

ECHO CHARACTER TO CONSOLE 

LOOP BACK 

SET UP TO RING BELL 

SEND IT 

LOOP BACK (IGNORING LAST CHARACTER TYPED) 

;SET UP FOR KEY FETCH 



GET KEY 

STRIP OFF PARITY 

IF RESULT ZERO, NO KEY WAS PRESSED 



SAVE CHARACTER TO BE PRINTED 

COMPARE TO SPACE 

IF NO CARRY, PRINT CHARACTER 

OTHERWISE, IT'S A CONTROL CHARACTER 

SO PRINT CARET FIRST 

GET SAVED CHARACTER 

ADD 64 TO CONVERT TO PRINTING CHARCTER 

SET UP FOR SINGLE CHARACTER PRINT 

MOVE CHARACTER TO BE SENT INTO E 

SEND CHARACTER 

;GET STRING LENGTH 

;IF LENGTH IS ZERO, THEN NO BACKSPACE 

DECREMENT LENGTH 

;SAVE IT 

;DELETE CHARACTER FROM CONSOLE 

;GET BUFFER POINTER 

DECREMENT IT 
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SHLD 

MOV 

CPI 

CC 

JMP 



BUFPT 

A,M 

SPACE 

BACKUP 

STRIN2 



SAVE IT 

GET LAST CHARACTER 

CHECK FOR CONTROL CHARACTER 

IF SO, ERASE PRECEDING CARET FROM CONSOLE 

LOOP BACK 



BACKUP: MVI 
CALL 
MVI 
CALL 
MVI 
JMP 



A,BS 

CHROUT 

A, SPACE 

CHROUT 

A,BS 

CHROUT 



;SEND OUT BACKSPACE , SPACE, BACKSPACE 



BUFCT: DS 1 

BUFPT: DS 2 

BUFMAX: DS 1 

KEYBUF: DS 1 

LENPT: DS 2 

PUTBUF: DS 1 

PROMPT: DB CR,LF,'STRING:$' 

VERERR: DB CR,'STRING INPUT ROUTINE REQUIRES CP/M VERSION 2.0 ' 

DB 'OR LATER! ',CR,'$' 



CURRENT STRING LENGTH 

POINTER TO NEXT AVAILABLE BUFFER LOCATION 

BUFFER LENGTH 

ONE CHARACTER KEY BUFFER 

POINTER TO LENGTH LOCATION IN BUFFER 



END 



MSOFT-66 



rev 4-14-82 12:54 



P&T-488 MSOFT User's Manual FCLOCK.FOR 

**** FCLOCK.FOR **** 

Like all the other clock programs, this one performs the same function but is written in 
Microsoft Fortran* It initializes the 488 bus by sending an Interface Clear (IFC), puts the 
clock into the remote mode by making the REN line true and then addressing the clock as a 
listener. It then addresses the clock as a talker and listens to the data (status, date and 
time) that the clock sends over the bus. It displays the date and time each time the minutes 
change. It also displays the data each time the status character indicates a clock error. 

A few differences will be seen when FCLOCK is compared to BICLOCK. Fortran does not have 
much ability to manipulate strings, so a special array is created to hold the data string read 
from the clock. This array is called BUFFER. The first three bytes of the array are used to 
emulate Basic's string descriptor block. Remember that the first byte of the string descriptor 
block holds the length of the string, and the remaining two bytes hold the address of the 
string. Similar arrays are set up for the two strings TAD and LAD. 

A routine that you will find useful if you write Fortran programs for MSOFT is STRXFR. It 
transfers (copies) strings from MSOFT's input string buffer into the specified array. Another 
useful routine is STRSET, which generates a string descriptor block in the first three bytes of 
an array. 

FCLOCK.FOR is compiled and linked in just the same way that FSAMPL.FOR is. If you 
follow the dialog shown for FSAMPL, subsituting FCLOCK each place FSAMPL appears, and 
IVARPT each place STRIN appears, you will get an execuatble file named FCLOCK.COM. 



c 

C FCLOCK.FOR 

C 

C Revised for MSOFT.REL by John Tinsman 4-15-82 

C 

C This is a Microsoft FORTRAN program which addresses an 

C an HP 59309A clock as a talker and then reads the time and 

C date. It continually rereads the time and displays the 

C time and date on the console each minute. 

C 

C The program assumes that the bus output format of the 59309A 

C is set to SPACE, CAL, and COLON. It also assumes that the 

C TALK address of the clock is "E" and the listen address is n %". 

C 

C ==r==3=:=:=!======s:=s:===s=s:ss=:=:=s:s=s=:==s:=:=s=s==s=:====s==s========:=s= 

c 



INTEGER ERCODE, TIME, EOT, EOS, LENGTH, POLL, ECHOIN, ECHOUT, BUS 

INTEGER STATUS, MIN, OLDMIN 

BYTE BUFFER(23),TAD(6),LAD(6) 
C 

C The byte array TAD contains an Un listen and an Untalk command 
C followed by the clock's talk address in the last three bytes. The 
C first three bytes are used to store the string descriptor for the 
C last three bytes. The byte array LAD is almost the same, but the 
C last byte of the string is — instead of being the clock's talk 
C address — the clock's listen address. In both cases, the first 3 
C bytes (which form the string descriptor) are initially set to 0, 
C and then later set to the proper values by using the subroutine 
C STRSET to do the string descriptor set ups. 
C 

DATA TAD /0,0,0,'?',' ','E'/ 
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DATA LAD /0,0,0,' ? f , f _J / # f 7 
C 

C Pass variable names that FCLOCK will be using to MSOFT 
C 

CALL I0SET (ERCODE, TIME, POLL, BUS) 

CALL PROTCL (EOT, EOS, LENGTH) 

CALL ECHO (ECHO IN, ECHOUT) 
C 

C Intiallze OLDMIN to some value which cannot match the first reading 
C from the clock. This will insure that the time and date will be 
C displayed the first time through. 
C 

OLDMIN = -1 
C 

C Issue an IFC command 
C 

30 CALL IFC 
C 

C Make REN I ine true 
C 

CALL REN 
C 

C TIME contains the amount of time to allow for handshake 
C If TIME=255, then the handshake is not timed 
C 

TIME = 255 
C 

C Turn off input and output echo 
C 

ECHOIN =0 

ECHOUT =0 
C 

C Set up the Listen string. It contains the string descriptor (3 bytes), 
C the UNLISTEN byte, the UNTALK byte and the Listen Address of the clock. 
C 

CALL STRSET(LAD,6,3) 
C 

C Become the 488 controller and issue UNLISTEN, UNTALK and then 
C address the clock as a listener. 
C This puts the clock in the REMOTE mode. 
C 

CALL CNTLC(LAD) 

IF ( ERCODE. NE.0) GOTO 200 
C 
C 

C Set up MSOFT so it will stop on EOS (End-of-String) byte, set the EOS 
C to be a I ine feed. 
C 

EOT = 1 

EOS = 10 
C 

C Set up the Talk string. It contains the string descriptor (3 bytes), 
C the UNLISTEN byte, the UNTALK byte and the Talk Address of the clock. 
C 

CALL STRSET(TAD,6,3) 
C 

C Become the 488 controller and issue UNLISTEN, UNTALK and then 
C address the clock as a talker. 
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C 

40 CALL CNTLC (TAD) 
C 

C Report any 488 errors that may have occurred 
C 

IF (ERC0DE.NE.0) GOTO 200 
C 

C Become a listener and read the time from the clock 
C 

50 CALL LSTNC( BUFFER) 
C 

C Report any 488 errors that may have occurred 
C 

IF (ERCODE.NE.O) GOTO 200 
C 

C Transfer clock response from 488 buffer Into array BUFFER 
C 

CALL STRXFRC BUFFER, 23) 
C 

C The clock's response Is now stored In elements 4-23 of the byte array 
C BUFFER In the following form: 
C 

C f? or <sp>1<sp>1l<:>1IM1IM1I<:>1ID1ID1l<:>1IHirHir<:>1IM1IM1I<:>irS1IS1l<cr>1I<lf>1I 
C 

C Put BUFFER(4) into STATUS, and put the string length +3 into J 
C 

STATUS = BUFFER (4) 

J = IUNSGN(BUFFER(1))+3 
C 

C Put the least significant digit of the minutes into MIN 
C 

MIN = BUFFER* 16) 
C 

C Check the clock status. If it's not OK then print message and halt 
C 

IF ( STATUS. EQ. 32) GOTO 100 

WRITE (1,55) (BUFFER* I),! =4, J) 

WRITE (1,60) 
55 FORMAT (' ',20A1) 
60 FORMAT (' Reset clock') 

WRITE (1,55) 

STOP 
C 

C Show the time if the minutes have changed 
C 

100 IF (MIN.NE.OLDMIN) WRITE (1,110) (BUFFER( I ), 1=4, J) 

110 FORMAT (' ',20AD 
C 

C Update 0LDMIN and read clock again 
C 

OLDMIN = MIN 
GOTO 40 
C 

C Error handling routine 

C If an error occurs, print error message and go back to 
C IFC, REN, etc. 
C 
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200 CALL ERRMSG(ERCODE) 
GOTO 30 
C 

END 

C ERRMSG 

C 488 interface error reporting routine 
C 

SUBROUTINE ERRMSG (ERCODE) 
C 

INTEGER ERCODE,I,J,K,IO,R9 
C 

WRITE (1,9031) ERCODE 
9031 FORMAT (' Error Code = ',13) 
C 

C Interpret Error codes and print error messages 
C 

IF (ERCODE. LT.O) GOTO 9370 
IF < ERCODE. NE.O) GOTO 9090 
RETURN 
9090 IF ( ERCODE. GT. 255) GOTO 9370 
DO 9350 K=0,7 
l=7-K 
10=2**1 
R9=ERC0DE-I0 
IF (R9.LT.0) GOTO 9350 
ERC0DE=R9 
J = l + 1 

GOTO (9160, 9190, 9210, 9240, 9260, 9290, 9310, 9330),J 
C 

9160 WRITE (1,9161) 

9161 FORMAT ( f SETUP ERROR « either I0SET or PROTCL was not called be 
_fore» ) 

C 

9170 WRITE (1,9171) 

9171 FORMAT (' using one of the MSOFT communication fun 
ctions 1 ) 

GOTO 9350 
C 

9190 WRITE (1,9191) 

9191 FORMAT ( f NO LISTENERS - I cannot talk to myself! 1 ) 
GOTO 9350 

C 

9210 WRITE (1,9211) 

9211 FORMAT ( f SERIAL POLL ADDRESS ERROR - no more than one secondary 
address 1 ) 

9220 WRITE (1,9221) 

9221 FORMAT (' may follow a primary addre 
_ss' ) 

GOTO 9350 
C 

9240 WRITE (1,9241) 

9241 FORMAT (' SERVICE REQUEST - a 488 device is requesting service 1 ) 
GOTO 9350 

C 

9260 WRITE (1,9261) 

9261 • FORMAT ( f TIMEOUT ERROR - the specified amount of time has elaps 
ed without 1 ) 

9270~~ WRITE (1,9271) 
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9271 FORMAT (' completing a 488 handshake cycle') 

GOTO 9350 
C 

9290 WRITE (1,9291) 

9291 FORMAT ( f ATN TRUE - an external controller is trying to issue a 
command ' ) 

~" GOTO 9350 
C 

9310 WRITE (1,9311) 

9311 FORMAT ( ! I FC TRUE - reset 488 interface') 
GOTO 9350 

C 

9330 WRITE (1,9331) 

9331 FORMAT (' S-100 RESET') 
GOTO 9350 

C 

9350 CONTINUE 

9360 RETURN 
C 

9370 WRITE (1,9371) 

9371 FORMAT (' SYSTEM ERROR - an illegal error code has been encounte 
_red') 

9380 RETURN 

END 
C 

C STRXFR 

C String Transfer Routine 
C 

SUBROUTINE STRXFR (ARRAY, SIZE) 
C 

INTEGER l,J,SIZE,STRLEN,ADDR 

BYTE ARRAY 

DIMENSION ARRAY(SIZE) 
C 

STRLEN= I UNSGN ( ARRAY( 1 ) ) 

ADDR=256*IUNSGN(ARRAY(3))+IUNSGN(ARRAY(2)) 
C 

J=STRLEN+3 

IF (SIZE.GE.J) GOTO 9600 

WRITE (1,9505) 

9505 FORMAT (' THE STRING RECEIVED IS BIGGER THAN THE ARRAY GIVEN!!') 
WRITE (1,9506) SIZE 

9506 FORMAT (' On I y the first ', 13, ' characters were transferred.' ) 
C 

DO 9520 1=4, SIZE 

ARRAY(I)=PEEK(ADDR) 
ADDR=ADDR+1 
9520 CONTINUE 
RETURN 
C 
C 
9600 DO 9610 I =4, J 

ARRAY(I)=PEEK(ADDR) 
ADDR=ADDR+1 
9610 CONTINUE 
C 

J=J+1 

DO 9620 l=J,SIZE 
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ARRAY(1)=0 
9620 CONTINUE 

RETURN 

END 
C 

C — I UNSGN 

C Signed Byte to Unsigned Integer Converter 
C 

INTEGER FUNCTION I UNSGN (M) 
C 

BYTE M 

INTEGER I UNSGN 
C 

IUNSGN=M 

IF (IUNSGN.LT.O) I UNSGN=IUNSGN+256 

RETURN 

END 
C 

C STRSET 

C String Descriptor Setup Routine 
C 

SUBROUTINE STRSET(ARRAY,SIZE,STRLEN) 
C 

INTEGER l,J,SIZE,STRLEN 

BYTE ARRAY 

DIMENSION ARRAY(SIZE) 
C 

C Set up string descriptor: length, address low, high 
C in the first three bytes of the array 
C 

ARRAY(1)=STRLEN 
C 

C Get the array address and add an offset to point around 
C the string descriptor 
C 

l=IVARPT(ARRAY)+3 
C 

J=l/256 

ARRAY(2)=I-256*J 

ARRAY(3)=J 

RETURN 

END 

The following assembler program is used by FCLOCK.FOR to get the address of a variable, 
Microsoft Fortran is similar to Basic in that it passes the addresses of parameters, and like 
Basic, it passes the address of the first parameter in register pair HL. Values returned by 
functions are put into register pair HL before the function returns to the -calling program. 
Since the address of the parameter of I VARPT is placed in HL by the calling program, and IVARPT 
immediately returns to the calling program, the value that is returned is the address of the 
parameter of IVARPT. 



PROGRAM IVARPT 

THIS PROGRAM IS DESIGNED TO BE USED AS A 
FORTRAN FUNCTION CALL SIMILAR TO MICROSOFT 
VARPTR FUNCTION IN THEIR BASIC. 
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WHEN THE ROUTINE IS CALLED, FORTRAN WILL 
PASS THE POINTER TO THE ARGUMENT VARIABLE 
IN THE HL REGISTER PAIR* SINCE FORTRAN 
EXPECTS INTEGER FUNCTIONS TO PLACE THE 
RETURN ARGUMENTS IN THE HL PAIR, ALL THAT 
NEED BE DONE IS A RET. 

PUBLIC IVARPT 

VARPT: RET 

END 
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**** QCCLOCK.C **** 

This program illustrates how MSOFT can be used with a program written in C. The particular 

compiler used in this example is Q/C written by Quality Computer Systems, It has the advantage 

of being inexpensive (under $100), readily available, and it can be used with a linker (such as 
Microsoft's L80). 

Like all the other clock programs, this one performs the same function but is written in a 
different language. It initializes the 488 bus by sending an Interface Clear (IFC), puts the 
clock into the remote mode by making the REN I ine true and then addressing the clock as a 
listener. It then addresses the clock as a talker and listens to the data (status, date and 
time) that the clock sends over the bus. It displays the date and time each time the minutes 
change. It also displays the data each time the status character indicates a clock error. 

There are a few points you should keep in mind if you use this program as a guide for writing a 
program for some other C compiler. One is that even though all pass the parameters on the stack, 
some reverse the order. Q/C places the leftmost parameter on the stack first and the rightmost 
last, so that the first parameter popped off of the stack is the rightmost one. Some other 
compilers put the rightmost parameter on the stack first, so that the first parameter popped off 
of the stack is the leftmost one. 

Another potential source of difficulty is that Q/C passes an argument back to the calling 
procedure in register pair HL. I have no idea of whether other compilers do also. I made use of 
Q/C r s convention in the procedure scntic. 

The following dialog shows how to compile this program and link it with MS0FT.REL. The result is 
an executable file named QCCL0CK.COM. 

B >CC QCCLOCK.C -M<CR> 

QC Compiler VI. 01 Copyright (c) 1981 Quality Computer Systems 

error (s) found 

B >M80 *QCCL0CK<CR> 

No Fatal error (s) 

B >L80 QCCL0CK,CRUNLI B, MSOFT, QCCL0CK/N/E<CR> 

Link-80 3.42 19-Feb-81 Copyright (c) 1981 Microsoft 

Data 0103 2A08 < 1 050 1 > 

29959 Bytes Free 

10103 2A08 421 

B> 
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/*#**##***#####***#*#***#*#♦#**#****#**##***********#*#******#***/ 

/* */ 

/* QCCLOCK.C 4-14-82 */ 

/* for Q/C Compiler Version 1.01 */ 

/* */ 

/* This is a C program which addresses an HP 59309A clock as */ 

/* a talker and then reads the time and date. It continually */ 

/* rereads the time and displays the time and date on the */ 

/* console each minute. */ 

/* */ 

/* The program assumes that the bus output format of the 5 9309 A */ 

/* is set to SPACE, CAL, and COLON. It also assumes that the */ 

/* TALK address of the clock is "E". */ 

/* */ 

/* The Q/C Compiler is distributed by */ 

/* The Code Works */ 

/* Box 550 */ 

/* Goleta, CA 93116 */ 

/* (805) 683-1585 */ 

/a******************************************** ********** *********/ 

extern CNTL, CNTLC, TALK, TALKC, LSTN, LSTNC, SPOLL; 
extern PPOLL, DREN, REN, STATUS, IFC, BRSET; 
extern IOSET, PROTCL, ECHO, I0P0RT; 

# include "qstdio.h" 

#define LINLEN 132 /* maximum input line size */ 

#define LF 10 /*. ASCII code for line feed */ 

/* MAIN */ 

main( ) 

{ 
/* Make all the communication variables static because Q/C 

accesses static variables more rapidly and with less object 

code than it accesses automatic variables */ 



static ercode, /* error code */ 
time, /* timeout */ 



eot, /* EOT switch */ 

eos, /* EOS byte V 

length, /* listen string length */ 

poll, /* poll response */ 

echoin, /* input echo switch */ 

echout, /* output echo switch */ 

bus; /* 488 status */ 

int status; /* HP clock status */ 

int umin; /* units digit of minutes */ 

int oldmin; /* previous units digit of minutes */ 

char line[LINLEN]; /* listen input line */ 

/* Pass variable names that CCL0CK will be using to MSOFT */ 
sioset(&ercode, &time, &poll, &bus) ; 
sprotcl(&eot , &eos, ^length); 
secho(&echoin, &echout); 
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7* TIME contains the amount of time to allow for handshake */ 
/* If TIME=255, then the handshake is not timed */ 

time=255; 

echoin=0; /* turn off input echo */ 

echout=0; /* turn off output echo */ 

/* Set up MSOFT so it will stop on EOS (End-of-String) byte, */ 
/* set the EOS byte to be a line feed. .*/ 

eotsl; 

eos=LF; 

for (;;) { 

ifc(); /* initialize the 488 bus */ 
ren(); /* make REN true */ 

/* Become the 488 controller and issue UNLISTEN, UNTALK and */ 
/* then address the clock as a listener */ 

scntlc( f, ?_J"); 

/* Report any 488 errors that may have occurred */ 
errmsg( ercode); 

/* Intialize OLDMIN to some value which cannot match the */ 

/* first reading from the clock. This will insure that the */ 

/* time and date will be displayed the first time through. */ 
oldmin = -1 ; 



*/ 
*/ 



*/ 



*/ 



*/ 



for (;;) { 

/* Become the 488 controller and issue UNLISTEN, UNTALK and 

/* then address the clock as a talker 

scntlc(»?J3"); 

/* Report any 488 errors that may have occurred */ 
errmsg(ercode) ; 
if (ercode != 0) break; /* break out of loop if bus error 

/* Become a listener and read the clock's status and time 

slstnc(line) ; 

/* Report any 488 errors that may have occurred */ 
errmsg( ercode) ; 
if (ercode != 0) break; /* break out of loop if bus error 



/* Check for clock error and report any other errors */ 

/* (Remember that the first character of the line is */ 

/* a "?" if the clock is in error.) */ 
if (line[0] == '?') {clkerrO; put s( line); break;} 

/* Show the time if the minutes have changed */ 
if (line[12] != oldmin) puts(line); 
oldmin = line[12]; /* update oldmin */ 
} 
/* Check for clock error. Exit to operating system */ 
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/* on a clock error because the clock must be reset. */ 
if (line[0] == f ?M { put s( "Reset clock"); break;} 
} 
/* end main */ } 

/* CLKERR */ 

/* Clock error report routine */ 

clkerrO 

{ 

fputs( "CLOCK ERROR ",stdout); 

} 

/* ERRMSG */ 

/* 488 interface error reporting routine */ 

errmsg(code) 

int code; 

{ 

if (code != 0) print f( "Error Code = £d\n" , code, 2) ; 

/* Interpret Error codes and print error messages */ 

if (code & 1) { 

puts( "SETUP ERROR - either IOSET or PROTCL was not called before"); 

puts(" using one of the MSOFT communication functions"); 

} 
if (code & 2) 

puts("N0 LISTENERS - I cannot talk to myself!"); 

if (code & 4) { 

puts( "SERIAL POLL ADDRESS ERROR - no more than one secondary address"); 
puts(" may follow a primary address"); 

} 
if (code & 8) 

puts( "SERVICE REQUEST - a 488 device is requesting service"); 

if (code & 16) { 

puts ("TIMEOUT ERROR - the specified amount of time has elapsed 
without"); 

puts(" completing a 488 handshake cycle"); 

} 
if (code & 32) 

puts("ATN TRUE - an external controller is trying to issue a command"); 

if (code & 64) 

puts("IFC TRUE - reset 488 interface"); 

if (code & 128) 

puts("S-100 RESET"); 

/* end errmsg */ } 

/* SCNTLC */ 

/* Send a string as a controller */ 

scntlc( string) 

char string[ ] ; 

{ 

makedope( string) ; /* HL = dope vector address */ 

cntlcO; /* clear the error code and send the string */ 
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/* SLSTNC 

/* Get a string as a listener 

slstnc( string) 

char string[ ] ; 

{ 

#asm 

POP 

POP 

PUSH 

PUSH 

PUSH 

LXI 

CALL 



-*/ 
*/ 



; remove return address 

;get addr of beginning of string area 



B 

H 

H- 

B 

H ;addr of beginning of string area 

H,DOPVTR ;HL points to the dope vector for MSOFT 

LSTNC ; clear the error code and get the string 



Copy MSOFT string into the C string. Remove all carriage returns. 



LXI 
POP 
MOV 
INX 
MOV 
INX 
MOV 
MOV 
CPYSTR: DCR 
JM 
MOV 
INX 
CPI 
JZ 

STAX 
INX 
JMP 



H.DOPVTR ;HL points to the dope vector 



D 

C,M 

H 

A,M 

H 

H,M 

L,A 

C 

ENDSTR 

A,M 

H 

13 

CPYSTR 

D 

D 

CPYSTR 



;DE points to C string area 
;C = MSOFT string length 



;HL = MSOFT string address 
; . .no more characters to copy 



carriage return? 

..yes, so do not copy into C string 

..no, so copy into C string 



; terminate C string with a null 



ENDSTR: SUB A 
STAX D 
RET 

#endasm 

/* end slstnc */} 



/* MAKEDOPE */ 

/* Make a Microsoft type of string dope vector */ 

makedope( string) 
char string; 

{ 

#asm 

C stores a string as a sequence of characters terminated by a NULL. 
We have to generate a string in the form that MSOFT expects. This 
involves two steps. The first is to generate a "dope vector" which 
consists of three bytes. The first is the length of the string, and 
the second and third are a word which contains the address of the 
string itself. Since C passed the address of the string to this 
routine, all that we really need to do is generate a dope vector. 

POP B ;get return address out of the way 
POP H ;get the address of the string 



MSOFT-78 



rev 4-15-82 16:13 



P&T-488 MSOFT User's Manual 



QCCLOCK.C 





PUSH 


H 




PUSH 


B 




SHLD 


DOPVTR 




MVI 


C,-1 


SLEN: 


INR 


C 




SUB 


A 




ORA 


M 




INX 


H 




JNZ 


SLEN 




MOV 


A,C 




STA 


DOPVTR 




LXI 


H.DOPV 




RET 




DOPVTR: 


DB 







DW 





#endasm 






/* end 


makedope 


*/ } 



;put return address on stack 
DOPVTR+1 ;put string address in the dope vector 
; preset the string length counter 

;zero reg A 

;see if the byte is NULL (zero) 
; point to the next byte 
; . .try next byte 
;get the string length 
;put it in the dope vector 
i ;HL = dope vector 
; return dope vector address 

; count byte 

; address of string 



/* SIOSET 

/* Set up communication variables 

sioset ( ercode , t ime , poll , bus) 

int *ercode, *time, *poll, *bus; 

{ 

#asm 

Call IOSET with 

HL = address of ercode 

DE = address of time 

BC = address of a table (B reg buffer) 
The table must contain the following entries: 

1. *poll 

2. *bus 
Set DE to point to last parameter passed 



-*/ 
*/ 



LXI 

DAD 

MOV 

INX 

MOV 

INX 

XCHG 

SHLD 

XCHG 

MOV 

INX 

MOV 

INX 

XCHG 

SHLD 

XCHG 

MOV 

INX 

MOV 

INX 

MOV 

INX 

MOV 

MOV 

LXI 



H,2 

SP 

E,M 

H 

D,M 

H 

BBFR2 

E,M 
H 

D,M 
H 

BBFR1 

E,M 

H 

D,M 

H 

A,M 

H 

H,M 

L,A 



;skip over the return address 
;HL = stack pointer upon entry 



;HL = address of bus variable 

;save it in second entry of B reg buffer 



;HL = address of poll variable 

;save it in first entry of B reg buffer 



;DE = address of time 



;HL = address of ercode 



B,BBFR1 ;point BC to B register buffer 
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JMP 



IOSET 



BBFR1 : 


DW 





BBFR2: 


DW 





#endasm 






/* end 


sioset 


*/ } 



;B register buffer 



/* SPROTCL 

/* Set up more communication variables 

sprotcl (length, eos, eot) 

int :■:* length, *eos, *eot; 

{ 

//asm 

Call PROTCL with 

HL = address of length 
DE = address of eos 
BC = address of eot 
Set HL to point to last parameter passed 

;skip over the return address 
;HL = stack pointer upon entry 
;get address of eot switch 

;BC s address of eot switch 



;DE = address of eos byte 



-*/ 

*/ 



LXI 


H,2 


DAD 


SP 


MOV 


C,M 


INX 


H 


MOV 


B,M 


INX 


H 


MOV 


E,M 


INX 


H 


MOV 


D,M 


INX 


H 


MOV 


A,M 


INX 


H 


MOV 


H,M 


MOV 


L,A 


JMP 


PROTCL 


# end asm 




/* end sprotcl 


*/ } 



;HL = address of listen string length 



/* _ SECHO 

/* Set up echo switches 

secho( echoin , echout ) 

int *echoin, *echout; 

{ 

#asm 

; Call 



-*/ 
*/ 



ECHO 

HL = 

DE = 

POP 

POP 

POP 

PUSH 

PUSH 

PUSH 

JMP 



with 

address of echoin 

address of echout 



B 
D 
H 
H 
D 
B 
ECHO 



#endasm 

/* end secho */ } 



;hang on to return address 
;DE = address of echout switch 
;HL = address of echin switch 
jrestore stack 
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UNOFFICIAL PHRASEBOOK 
IEEE 488 to ENGLISH 



IEEE used the following conventions when they assigned the names used in 
the standard: 

Lower Case names are associated with local messages (messages between a 
device and its interface; they MIGHT NOT appear on the 488 bus). 

Upper Case names are divided into three groups: 

One or two letters name interface functions, 

Three letter mnemonics are remote messages (communications over the 
488 bus from one interface to another) and 

Four letter names ending in " S" identify the state of an interface 
function. 



The numbers following an entry are the pages of the IEEE Standard (Apr 4, 1975) 
which give further information. 

ACOS ACcept Data State 
21,22 

ACG Addressed Command Group - multiline messages (00-0F Hex) which affect 
only addressed devices. The messages GTL (Go To Local), SDC (Selective 
Device Clear), PPC (Parallel Poll Configure) and GET (Group Execute 
Trigger) operate only on devices in the LADS (Listener Addressed) state. 
TCT (Take Control) operates on the device in the TADS (Talk Addressed) 
state. 
48,77 

ACRS ACceptor Ready State 
21,22 

Addressed Commands - Commands belonging to the Addressed Command Group (See 
ACG) 
43 

AH Acceptor Handshake - the device function which allows proper reception of 

data and commands appearing on the eight data lines of the 488 bus (i*e., 
multiline messages). The DAV (Data Available) line is sensed to determine 
when the multiline message is valid, and the AH function indicates its 
readiness for data by asserting a passive false on the NRFD (Not Ready For 
Data) line, and that it has received the message by asserting a passive 
false on the NDAC (Not Data Accepted) line. Note that it is illegal for the 
AH to assert both NDAC and NRFD passive false simultaneously. 
20 
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Active False - an active false message asserted on the 488 bus is one in which it 
is guaranteed that a false value is received. It overrides a passive true. 
The standard is constructed so that it is not possible for an active true and 
an active false message to be asserted on the bus at the same time. 
16 

Active True - a message which when asserted on the 488 bus is guaranteed to be 
received as true. It overrides a passive false. The standard is 
constructed so that it is not possible for an active true and an active false 
message to be asserted on the bus at the same time. 
16 

AIDS ACceptor Idle State 
20, 21 

ANRS Acceptor Not Ready State 
20,21 

APRS Affirmative Poll Response State 
32 

ATN ATtentioN - a uniline remote message indicating that a Controller is sending 
commands (as contrasted to a Talker sending data) over the eight data (DIO) 
lines. 
19,21,24,29,35,41,48,75-76 

AWNS Acceptor Wait for New cycle State 
21,22 

C Controller interface function - the interface function which allows a device 

to send device addresses, universal commands and addressed commands over 
the 488 bus. It also allows the device to conduct a Parallel Poll to 
determine which device needs service. 
41 

CACS Controller ACtive State 
41,42 

CADS Controller ADdressed State 
41,42 

CAWS Controller Active Wait State 
41,43 

CIDS Controller IDIe State 
41 

CPPS Controller Parallel Poll State 
41,43 

CPWS Controller Parallel poll Wait State 
41,43 
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CSBS Controller StandBy State 
41,43 

CSNS Controller Service Not requested State 
41,44 

CSRS Controller Service Requested State 
41,44 

CSWS Controller Synchronous Wait State 
41,43 

CTRS Controller TRansfer State 
41,44 

DAB DAta Byte - a multiline sent by the Source Handshake (SH) over the eight 
data (DIO) lines 
25,48,75-76 

DAC Data ACcepted - the complement appears on the NDAC line. See AH, SH 
for further information, 
19,22,48,75-76 

Data Byte Transfer Control lines - the three lines (DAV, NRFD and NDAC) that 
are used by the Source and Acceptor functions to perform the handshake 
cycle. 
12,18-22,67 

DAV DAta Valid - a uniline message sent by the Source Handshake (SH) function 
over the DAV line. See SH. 
48,75-76 

DC Device Clear interface function - the interface function which allows a 

device to be cleared (initialized) either individually or as part of a group. 
The group may be either part or all of the addressed devices in one 
system. 
37-38 

DCAS Device Clear Active State 
38 

DCIS Device Clear Idle State 
37,38 

DCL Device CLear - a multiline message (14 Hex) sent by the Controller over the 
eight data lines indicating that all devices are to go into the Clear state. 
The details are device dependent, but usually the device is left in the same 
state as when its power is first turned on. 
38,43,48,75-77 

Dense Subset - A subset of the Primary Command Group, consisting of only the 

Listen Address Group (LAG) and Talk Address Group (TAG). ISO codes 

Space through Underline, inclusive. (Values 20 Hex through 5F Hex). 
77 
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DIOn Data Input/Output line n (n goes from 1 through 8) 
54 

DT Device Trigger interface function - the interface function which allows a 

device to start its basic operation started either individually or as part of a 
group. This function may be used to start several devices simultaneously. 
38-39 

DTAS Device Trigger Active State 
39 

DTIS Device Trigger Idle State 
39 

END END - a unit in e message sen t by a Talker (EOI line active true) at the 
same time a data byte is sent on the data (DIO) lines. The message 
indicates that this is the last data byte to be sent. (See EOS for an 
alternate way of terminating a string sent by a Talker). 
23,48,75-76 

EOI End Or Identify - a uniline message which serves two purposes: if asserted 

true by a Talker it indicates that the last byte of a string is being sent. 
If asserted true by a Controller it initiates a Parallel Poll. 

EOS End Of String - a multiline message sent by a Talker to indicate that the 
last byte of a string has been sent. Its value (ISO code) is determined by 
what the Listener(s) recognize. 
48 

General Interface Management lines - the five lines used to perform system 
operations, such as Parallel Poll, Interface Clear, etc. Several of the 
lines are also used in data transactions: an example is EOI, which may be 
used to signal the end of a multibyte transaction. The five lines are ATN, 
EOI, IFC, REN and SRQ. 
12 

GET Group Execute Trigger - a multiline message (08 Hex) sent by the 
Controller indicating that all devices addressed as Listeners are to start 
performing their respective functions. This command is often used to start 
several pieces of equipment in synchronism. 
39,43,48,75-77 

GTL Go To Local - a multiline message (01 Hex) sent by the Controller 
indicating that all devices addressed as Listeners are to go to the Local 
state: i.e., local controls on the front or back panel (instead of device 
dependent messages on the 488 bus) control device operation. (See Local 
Control) 
33,43,48,75-77 

gts go to standby - a local message sent by a device to its Controller interface 

function telling it that it is finished sending commands. The response is 
that the Controller function releases the bus so that other operations (e.g., 
a Talker sending data to Listeners) may proceed. 
41,75 
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IDY IDentifY - a uniline message sent by the Controller during a Parallel Poll 

telling the other devices to assert their Parallel Poll responses on the data 
bus • 
35,48,75-76 

IFC InterFace Clear - a uniline message sent by the System Controller telling 

all other devices on the bus to go to the Idle state. This message is used 
to place all devices in a known state. It should be used sparingly because 
any bus transaction is terminated by this function. 
24,29,41 -42,48,75-76 

ISO Code - a seven bit code equivalent to the American National Code for 
Information Interchange, ANSI X3. 4-1968 (often called ASCII). 
46,50,77 

isr individual service request - a local message sent by a device to its Parallel 

Poll interface function. If the individual status (see "ist") message is equal 
to the S (Sense) bit received as part of the most recently received PPE 
(Parallel Poll Enable) command, the PPR (Parallel Poll Response) byte 
specified by the three bits P1-P3 of the most recent PPE command must be 
sent true upon receipt of an IDY (Identify) command from the Controller. 
Alternately, if subset PP2 (Parallel Poll function cannot be configured by 
the Controller) is used, local messages are substituted for S, P1-P3. 
35-37,75 

ist individual status - a local message used by the Parallel Poll function to 

determine the proper response to an IDY (Identify) command from the 
Controller. See "isr 11 . 
35-36 

L Listen interface function - the function which allows a device to receive 

data from the 488 bus. 
28 

LACS Listener ACtive State 
29-30 

(LAD) the listen address of a specific device (received as MLA). See "MLA". 
43 

LADS Listener ADdressed State 
28-29 

LAG Listen Address Group - a subset of the IS 0-7 'codes , being characters 
SPACE through ? (20 Hex through 3F Hex). 
48, 77 

LE Listen Extended interface function - similar to the Listen function except 

that a Secondary Address must be used as well as the Primary Address used 
for the Listen function. 
30 

LIDS Listener IDIe State 
28-29 
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LLO Local LockOut - a multiline command (11 Hex) sent by the Controller which 

tells all devices with the RL (Remote Local) interface function to obey 
device dependent messages sent over the 488 bus instead of their local 
controls (e.g., front panel). 
33,43,48,75-77 

LOGS LOCal State 
33 

local control - the device is programmed by its controls instead of by the 488 
interface. An example is a digital multimeter; the range, function, sample 
rate, etc. are set by front panel controls if it is under local control. 
33 

local message - a message sent between a device function and an interface 
function. It may cause a remote message to be sent from the interface 
function over the 488 bus. 
15 

Ion listen only - a local message which causes the Listen function of the device 

to act as if it had been addressed by the Controller. 
29,75 

LPAS Listener Primary Addressed State 
29,30 

Ipe local poll enable - a local message which causes the Parallel Poll function 
of the device to act as if it has received a PPE (Parallel Poll Enable) from 

the Controller. When Ipe is false, the device is to act as if it has 

received a PPD (Parallel Poll Disable) while in the PACS (Parallel Poll 

Addressed to Configure state) or a PPU (Parallel Poll Unconfigure) command 
from the Controller. 
35,75 

LPIS Listener Primary Idle State 
29-30 

Itn listen - a local message which when true and the Controller is in the active 

state causes the L (Listen) or LE (Listen Extended) function to go from the 
Idle (LIDS) to the Addressed (LADS) state. 
29,75 

lun local unlisten - a local message which when true and the Controller is in 

the active state (CACS) causes the L (Listen) or LE (Listen Extended) 
function to go from the Addressed (LADS) to the Idle (LIDS) state. 
29,75 

LWLS Local With Lockout State 
33-34 
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MLA M y Listen Address - the address which the L (Listen) or LE (Listen 
Extended) function will respond to* Note that the standard does not allow a 
488 bus system to have both an L and an LE interface function which 
respond to the same primary address. MLA must belong to the LAG (Listen 
Address Group). 
48,75-76 

MSA My Secondary Address - the secondary address which the TE (Talk 

Extended) or LE (Listen Extended) functions will respond to if they are in 
the Primary Addressed state (TPAS or LPAS, respectively). MSA must 
belong to the SCG (Secondary Command Group). 
24,48,75-76 

MTA My Talk Address - the primary address which the T (Talk) or TE (Talk 
Extended) function will respond to. Note that the standard does not allow a 
488 bus system to have both a T and TE interface function simultaneaously 
with the same primary address. MTA must belong to the TAG (Talk Address 
Group). 
24,29,48,75-76 

multiline message - a message that is sent over two or more lines of the 488 bus. 
An example is Device Clear (DCL) (14 Hex sent out on the data (DIOI -DI08) 
lines by the Controller). 
45 

nba new byte available - a local message sent by a device to its Source 

Handshake (SH) function to inform it that another byte is available for it to 
place on the bus data (DI01-DI08) lines. 
19,75 

NDAC Not Data ACcepted - one line of the 488 bus which carries the complement 
of the Data ACcepted (DAC) message. It is one of the three Data Byte 
Transfer Control lines. (See DAC). 

NPRS Negative Poll Response State 
32 

NRFD Not Ready For Data - one line of the 488 bus. It carries the complement 
of the Ready For Data (RFD) message, and is one of the three Data Byte 
Transfer Control lines. (See RFD). 

NUL null byte: all eight bits are false. 
23,42,48 

OSA Other Secondary Address - a secondary address which is not the same as 
the secondary address of the TE (Talk Extended) function while it is in the 
TPAS (Talk Primary Addressed state), or of the LE (Listen Extended) 
function while it is in the LPAS (Listen Primary Addressed state). OSA 
must belong to the SCG (Secondary Command Group). 
48,75-76 
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OTA Other Talk Address - an address other than a device's own talk address. 
Some devices which are capable of talking unaddress themselves if they 
sense that the Controller is addressing another Talker. This feature can be 
convenient because an UNTalk (UNT) command is not needed. OTA must 
belong to the TAG (Talk Address Group). 
24,48,75-76 

PACS Parallel poll Addressed to Configure State 
35^36 

Passive False - a message which when asserted on the 488 bus is NOT guaranteed 
to be received as false. It is overridden by an active true message. 
16 

Passive True - a message which when asserted on the 488 bus is NOT guaranteed 
to be received as true. It is overridden by an active false message. 
16 

PCG Primary Command Group - a subset of the 1SO-7 code. It consists of all 
characters NUL through UNDERLINE (00 Hex through 5F Hex). It includes 
all of the ACG (Addressed Command Group), UC G < (Universal Command 
Group), LAG (Listen Address Group) and TAG (Talk Address Group). 
35*, 49, 75-77 

pon power on - a local message sent by the device to its own interface to 

inform it that power has just been applied. The interface should reset ail 
functions (e.g., Listen, AH, Talk, etc.) to their Idle states. 
75 

?P Parallel Poll interface function - the function which allows a device to 

respond to a Parallel Poll from the Controller. 

35 

PPAS Parallel Poll Active State 
35-36 

PPC Parallel Poll Configure - a multiline message (05 Hex) sent by the 

Controller which causes the device presently addressed as a Listener (e.g., 
in the LADS state) to go into the PACS (Parallel Poll Addressed to 
Configure) state. While in the PACS, the PP (Parallel Poll) function is to 
obey the PPE (Parallel Poll Enable) and PPD (Parallel Poll Disable) messages 
sent by the Controller. 
35,43,75-77 

PPD Parallel Poll Disable - a multiline message (70 Hex) sent by the Controller 

which will place all devices in the PACS (Parallel Poll Addressed to 
Configure) state into the PPIS (Parallel Poll Idle) state. 
35,43,49,75-76 

PPE Parallel Poll Enable - a multiline message (60-6F Hex) sent by the 

Controller which will change all devices in the PPIS (Parallel Poll Idle) state 
to the PPSS (Parallel Poll Standby) state. It also specifies the PPRn 
(Parallel Poll Response byte) to be used and the S (Sense) of the PPR. 
The form of the message is (from most significant bit to least) 
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X 1 1 9 S P3 P2 P1 
where X means don't care (may be either high or low), and the binary value 
formed by P3-P1 indicates which PPRn is to be used. Note that n of PPRn 
indicates which data line is to be made active true (i.e., DI03 will be made 
active true when PPR3 is placed on the bus). 
35,43,49,75-76 

P PIS Parallel Poll Idle State 
35-36 

PPRn Parallel Poll Response n (See PPE) 
35,49,75-76 

PPSS Parallel Poll Standby State 
35-36 

PPU Parallel Poll Unconfigure - a multiline message (15 Hex) sent by the 

Controller which takes all devices in the PPSS (Parallel Poll Standby) state 
and puts them into the PPIS (Parallel Poll Idle) state. 
35,43,49,75-77 

PUCS Parallel poll Unaddressed to Configure State 
35-36 

rdy ready for next message - a local message sent by a device to its AH 

(Acceptor Handshake) interface function to indicate it is ready for another 

message byte from the 488 bus (i.e, another multiline remote message). 
21,75 

remote control - a device is programmed by its 488 interface instead of by local 
controls. An example is a DMM whose function, range selection, etc are 
selected by messages sent to it over the 488 bus. See local control for 
contrast. 
33 

REMS REMote State 
33-34 

REN Remote ENable - one of the five General Interface Management lines. 
Also, a uniline message sent by the Controller to put devices addressed as 
Listeners into the REMS (Remote) state. When the Controller makes the 
REN message false, all devices are to go to the LOCS (Local) state. 
33,42,49,75-76 

RFD Ready For Data - the complement appears on the NRFD line. This uniline 
message is used by the AH (Acceptor Handshake) function to indicate that it 
is ready to accept the next byte (multiline message). See AH for further 
information. 
19,22,49,75-76 

RL Remote Local interface function - if present it allows a device to be 

switched from local to remote control and vice versa. 
33 
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rpp request parallel poll - a local message sent to the Controller interface 

function when the device wants a Parallel Poll performed. 
41,75 

RQS ReQuest Service - the byte sent by the current Talker in response to a 
Serial Poll. Data bit 7 (DI07) is true. 
23,49,75-76 

rsc request system control - a local message sent to the Controller interface 

function by the device when it wants to go to the SACS (System Control 
Active) state. 
41,75 

rsv request service - a local message sent by a device to its Service Request 

interface function to cause it to go to the SRQS (Service Request) state. 

As a consequence, the uniline message SRQ is sent active true until either 

rsv is sent false, or the Controller performs a Serial Poll of this device. 
32,75 

rtl return to local - a local message sent by a device to its Remote/Local 

interface function. The LOGS (Local) state is entered if neither LLO 
(Local Lockout) nor ACDS (Accept Data State) are true. 
33,75 

RWLS Remote With Lockout State 
33,34 

SACS System Control Active State 
41,44 

(SAD) Secondary ADdress - the seconday address of a specific device, and is 

received as either My Seconday Address (MSA) or Other Secondary Address 

(OSA). Its value must lie in the range 60-7E Hex. (See SCG). 
43 

(SBA) Status Byte, service request Acknowledged. A message sent over the 488 
bus by the current Talker in response to a Serial Poll. This message 
indicates that this device was requesting service. Data bit 7 (DI07) is 
true. (See RQS) 
62 



(SBN) Status Byte, service Not requested. Same as SBA but 
device does not need service. Data bit 7 (DI07) is false. 
62 



indicates that this 



SCG Secondary Command Group. A subset of the ISO-7 code consisting of 
characters ACCENT GRAVE through TILDE (60 Hex through 7E Hex). 
Secondary Talk and Listen addresses must be selected from this group. 
(Note that DEL is not allowed as a secondary address). 
49, 77 
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SDC Selected Device Clear - a multiline message (04 Hex) sent by the Controller 

indicating that all devices addressed as Listeners are to go into the DCAS 
(Device Clear Active) state. The details are device dependent, but usually 
the device is left in the same state as when its power is first turned on. 
38,43,49,75-77 

SDYS Source DelaY State 
18-19 

Secondary Commands - the commands PPE, PPD and (SAD). 
43 

SGNS Source GeNerate State 
18-19 

SH Source Handshake interface function. The function used by a Talker or 

Controller to insure proper communication of multiline messages. The NRFD 
and NDAC lines are sensed to determine whether the AH (Acceptor 
Handshake) function of some device is active (if both NRFD and NDAC are 
false simultaneously, there is no AH function on the bus, which is an 
error). The multiline message is placed on the eight data lines (DIOI -DI08) 
and a 2 microsecond timeout is started. When NRFD is sensed false and 
the timeout has been completed (to insure the data lines have settled) DAV 
is asserted true (to show that the data is available and settled). Upon 
sensing NDAC false the SH asserts DAV false (to indicate that the data 
may no longer be valid) then removes the data. The whole cycle is 
repeated for subsequent bytes of data. (See AH for the other half of the 
handshake cycle). 
18 

SIAS System control Interface clear Active State 
41,44 

sic send interface clear - a local message which causes the devices' Controller 

interface function to enter the SIAS (System Control Interface Clear Active) 
state if it is the System Controller (i.e., it is in the SACS (System Control 
Active) state). As a consequence, the IFC (Inteface Clear) signal is sent 
active true. (IFC is a uniline message sent on the IFC line). 
41,75 

SIDS Source IDle State 
18-19 

SlIS System control Interface clear Idle State 

41,44 

SINS System control Interface clear Not active State 
41,44 

SIWS Source Idle Wait State 
19-20 

SNAS System control Not Active State 
' 41,44 
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SPAS Serial Poll Active State 
24,26 

SPD Serial Poll Disable - a multiline message (19 Hex) sent by the Controller. 

It informs ail devices capable of being Talkers that they are to speak data 
when they are addressed to talk. (See SPE for contrast). 
43,49,75-77 

SPE Serial Poll Enable - a mu lit line message (18 Hex) sent by the Controller. It 

informs all devices capable of being Talkers that they are to speak their 
Serial Poll Status Byte (instead of data) when they are addressed to talk. 
See SBA, SBN, STB for further information about the status byte. 
43,49,75-77 

SPIS Serial Poll Idle State 
24,26 

SPMS Serial Poll Mode State 
24,26 

SR Service Request inte r face function . This function allows a device to 

asynchronously request service from the Controller-In-Charge. 
31 

SRAS System control Remote enable Active State 
41,45 

sre send remote enable - a local message sent by a device to its Control 

interface function. It causes the function to enter the SRAS (System 
Control Remote Enable Active) state only if it was already in the SACS 
(System Control Active) state. The uniline message REN is sent active true 
as long as the Controller remains in the SRAS state. 
41,75 

SRIS System control Remote enable Idle State 
41,44 

SRNS System control Remote enable Not active State 
41,45 

SRQ Service ReQuest - a uniline message sent on the SRQ line by the SR 
(Service Request) interface function. It is the duty of the Controller to 
provide the service needed. 
49,75-76 

SRQS Service ReQuest State 
32 

STB STatus Byte. Data bits 1 through 6 and bit 8 (DI01-DI06, DI08) sent in 

response to a Serial Poll. STB is combined with RQS to form the complete 
byte. (See SBA, SBN). 
25,49,75-76 
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STRS Source TRansfer State 
18-19 

SWNS Source Wait for New cycle State 
18-19 

T Talk Interface function* This function allows a device to send information 

to other devices on the 488 bus. Only one byte (selected from the Talker 
Address Group) need be sent to address the Talker. 
23 

TACS Talker ACtive State 
24,26 

(TAD) the Talk ADdress of a specific device. It is received as either My Talk 
Address (MTA) or Other Talk Address (OTA). It must be a member of the 
TAG (Talk Address Group). 
43 

TADS Talker ADdressed State 
23-24 

TAG Talker Address Group. A subset of the ISO-7 code consisting of all 
characters from 9 through UNDERLINE (40 Hex through 5F Hex). The 
address of a Talker (or the primary address of an Extended Talker) must be 
selected from this group. Note that UNDERLINE cannot be used as an 
address, for it is reserved as the Universal Untalk command. 
49, 77 

tea take control asynchronously - a local message sent by a device to its 

Controller interface function. It causes the function to go from the CSBS 
(Controller Standby) state to the CSWS (Controller Synchronous Wait) state, 
where it waits for at least 500 nsec (to allow the other devices on the 488 
bus to respond to the active true assertion of the uniline message ATN), 
then proceed to the CAWS (Controller Active Wait) state. ATN is active 
true in both CSWS and CAWS. 
41,75 

tcs take control synchronously - a local message sent by a device to its 

Controller interface function. It operates the same as tea EXCEPT that 
the function goes from CSBS to CSWS only when the AH (Acceptor 
Handshake) function is in the ANR S (Acceptor Not Ready) state. The 
effect is to insure that a message sent by a Talker is not garbled or 
misinterpreted as a message sent by the Controller; ATN will not become 
active true until the Source Handshake is complete (i.e., DAY is false, 
showing that the message is no longer valid). 
21,41,75 

TCT Take ConTrol - a multiline message (09 Hex) sent by the Controller to 
inform the device currently addressed as a Talker that it is to become the 
Controller- in -Charge. 
41,43,49,75-77 
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TE Talker Extended interface function. Similar to the Talker (T) function 

except that this one is addressed by two bytes. The first must be selected 
from the Talker Address Group (TAG) and the second from the Secondary 
Command Group (SCG). 
23 

TIDS Talker IDIe State 
23-24 

ton talk only - a local message sent by a device to its Talk interface function. 

If IFC (Interface Clear) is false, the Talker function enters the TADS 
(Talker Addressed) state. Remember that only one Talker may be addressed 
at a time, so as long as ton is true no other device may have ton true or 
be addressed as a Talker by the Controller. 
24,75 

TPAS Talker Primary Addressed State 
24,26 

TPIS Talker Primary Idle State 
24,26 

UCG Universal Command Group - A subset of the ISO-7 code consisting of all 
characters from DLE through US (10 Hex through IF Hex). These commands 
operate upon all devices which are capable of responding to a Controller; 
the devices are not individually addressed. For contrast see Addressed 
Command Group (ACG). 
43,49,77 

uniiine message - a message that uses only one line of the 488 bus. An example is 
Service ReQuest (SRQ). 

Universal Command Group - See UCG 

UNL UNListen - a multiline message (3F Hex or the character "?") sent by the 
Controller which forces the Listen function of all devices into the LIDS 
(Listen Idle) state. 
29,43,49,75-77 

UNT UNTalk - a multiline message (5F Hex or the character H _") sent by the 

Controller which forces the Talk function of all devices into the TIDS (Talk 
Idle) state. 
49,77 
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The program BUSMON monitors and reports all transactions on the IEEE -488 bus. 
488TODSK records data sent over the 488 bus into a disk file. DSKT0488 sends the 
contents of a disk file over the bus as data. HANDSHAK.ASM contains the source code 
for routines which perform the Source and Acceptor Handshake functions. An example 
of how to use HANDSHAK.ASM is given in the program S AM P LH S . A S M . 



BUSMON 

The program BUSMON monitors and reports all transactions which occur on the 
1EEE-488 bus. The operator can choose two different forms for the report. The 
normal form displays the transactions without any special handling. The other form is 
expanded, which means that non-printing characters are replaced with strings of printable 
characters. This form is especially useful for those cases where one is trying to 
distinguish between tabs and spaces, or determine whether line feed precedes carriage 
return, etc. The form of the report can be selected by typing a character on the 
console keyboard while the program is running. Once the form has been selected, its 
action may be repeated by typing any key on the keyboard. 

The operator can set BUSMON to stop on one of three different conditions: on 
each carriage return, line feed, or each character. The condition is selected by using 
one of the four stop code keys. The stop code can be changed at any time by typing 
the appropriate stop code key. The stop code keys and the corresponding stop conditions 
are shown in the following table. Note that typing a stop code key will NOT cause a 
repeat of the previous stop condition, but will invoke a new stop condition. The program 
starts in the Carriage Return mode. 

Expand/Normal Option 

N or n Show characters normally 

X or x Expand the non- printing characters. Space (20 Hex), Horizontal Tab (9) and 
Line Feed (OA Hex) are replaced by the strings <SPACE>, <HT> and <LF> 
respectively. The non-printing character Carriage Return (OD Hex) causes the 
message <CR> to be printed followed by a carriage return and a line feed. All 
other non- printing characters are replaced with the two character string of an 
up arrow followed by a capital letter. Thus the non-printing character 01 Hex 
is replaced by the string fA, while the character 1A Hex. is printed as fZ. 



Stop Codes 

Carriage Return Display all transactions up to and including the next carriage return. 

Line Feed Display all transactions up to and including the next line feed. 

Space Display the next transaction (allows stepping one byte at a time). 

G or g Go. Display all transactions continuously without stopping on Line 

Feed, Carriage Return or next byte. 

t CP/M is a trademark of Digital Research 
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Abort 

Control C Abort. Go back to the CP/M command mode. 



Con sole/ Printer Switch 

Direct all output to the console. 

1-9 Direct all output to the system printer. 

NOTE: to direct output to both the console and printer, select the console and then 
press Control P. 



IEEE -488 Functions 

I or i Assert IFC (perform an Interface Clear). 

R or r Make REN true (assert Remote Enable). 

L or I Make REN false (all instruments will go to Local mode). 

Q or q Make SRQ true (request service). 

W or w Make SRQ false (cease requesting service). 

P or p Perform a Parallel Poll and report the results. 

S or s Show the state of the IEEE-488 lines. 

T or t Talk - collect a string of characters from the operator then send it over the 
bus as a Talker. 

C or c Control - collect a string and send it over the bus as a Controller. 

NOTE: While collecting a string for Talk or Control the following keys have special 

meaning: 

Control X Delete the string and restart collection. This allows errors to be corrected. 

RETURN Terminate the collection of the string. The carriage return is not included 

in the string. 

ESCAPE Put the next character into the string. This allows ESCAPE, RETURN and 

Control X to be put into the string. For instance, to get the string 
?A<ESCAPE>12<RETURN><LINE FEED>, you would type 

?A<ESCAPE><E SCAPE >12<ESCAPE><RETURNXLINE FEED><RETURN>. In 

this example, the string <ESCAPE> means that the ESCAPE key is pressed, 
not that the 8 keys <, E, S, C, A, P, E and > are pressed. Similarly, 
<RETURN> and <LINE FEED> mean that the RETURN and LINE FEED keys 
are used. 



Each time the Controller becomes active (asserts ATN active true), a carriage 
return-line feed is sent to the console, followed by the string COMMAND:, followed by 
another carriage return- line feed pair. Similarly, each time the Controller becomes 
inactive (ATN is false), a carriage return, line feed, the string DATA:, carriage return 
and a line feed is sent to the console. Thus all characters printed after COMMAND: 
and before DATA: are instructions sent by the Controller, (for example, "?" means 
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UNLISTEN). All characters printed after DATA: and before COMMAND: are data 
(otherwise known as device-dependant messages). Examples are readings from a DVM 
which has been commanded to be a Talker, etc* 

Messages are also printed on the console to indicate occurances of IFC (Interface 

Clear), indicate a change of the state of the REN (Remote Enable) line, and of the SRQ 

(Service Request) line. The message >» S-100 POC/RESET TRUE <<< is printed 

whenever the Power On Clear or the RESET line of the S —100 system becomes true. 

Whenever the Controller is active, a descriptive string is substituted for special 
non-printing messages. For example, » GO TO LOCAL « is printed when 01 Hex is 
received and ATN is true. The list of messages and the corresponding non-printing 
characters is as follows: 

Character Message 

Hex 

01 » GO TO LOCAL « 

04 » SELECTIVE DEVICE CLEAR << 

05 » PARALLEL POLL CONFIGURE << 

08 » GROUP EXECUTE TRIGGER « 

09 » TAKE CONTROL « 
11 » LOCAL LOCKOUT « 

14 » UNIVERSAL DEVICE CLEAR << 

15 » PARALLEL POLL UNCONFIGURE << 

18 » SERIAL POLL ENABLE << 

19 » SERIAL POLL DISABLE « 



The results of this program can be misleading for the following reasons: 

1. This program functions as a Listener on the 488 bus. If there were no Listeners 
on the bus before this routine was run, any Talker would have been unable to say 
a thing. However, when this routine is run, the Talker has someone to talk to. 
Thus the operation of the 488 system may be changed by the fact that the Bus 
Monitor routine is run. 

2. This routine is slow compared to the speed that communication on the 488 bus is 
capable of attaining. Thus 488 throughput may be drastically slowed by using the 
bus monitor. 

3. This routine is incapable of sensing a Parallel Poll issued by another controller, or 
the response to that Parallel Poll. If it happens that this routine tests the EOI 
line at the time of a Parallel Poll, it will show the message <END>, even though 
ATN is true. 



488TODSK 

The program 488TODSK is used to record all data transactions directly into a 
CP/M disk file. To use the program type 

488TODSK filename. ex t x<CR> 
where filename. ex t is the file name and extension of the file into which the data is to 
be recorded, and x is the option code. Note that there must be one and only one space 
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between 488TODSK and the file name, and also one and only one space between the file 
name and the option code. The characters <CR> mean that the Carriage Return key is 
pressed, not that the four keys <, C, R and > are pressed. 

Three different options are available: none, Z and E. The option E means that 
the file will be closed and control passed back to the console upon receipt of the 488 
END message. The option Z means that the file will be closed and control passed back 
to the console upon receipt of a Control Z in the data stream (the Control Z is also 
placed in the file). This option can be useful because CP/M text files are terminated by 
a Control Z. If no option is selected (that is, a Carriage Return follows the file name), 
the file can be closed only by pressing Control C on the console. Note that Control C 
can be used at any time to abort the program: all data received up to the time the 
Control C was pressed is saved in the file. Some garbage will also appear at the end of 
the file because the whole buffer is saved in the disk file, and the buffer probably was 
not filled at the time Control C is pressed. 

Error messages are printed on the console if the disk directory is full, the data 
area is full, or any other disk write error occurs. In each case the function is aborted. 
If the name of the file is the same as one which is already on the disk, the operator is 
asked if it is OK to replace the old file. If the operator responds by typing any 
character other than "Y" or "y", the function is aborted and the old file is left 
untouched. If the operator responds with either "Y" or "y", the old file is erased and 
the new one takes its place. 



DSKT0488 

The program DSKT0488 sends the contents of a CP/M disk file over the 488 bus. 
The program is called by the string 

DSKT0488 filename .ex t x 
where filename .ext is the name of the file that is to be sent and x is the option code. 
Only two options are available: none and Z. The Z option causes the Control Z to be 
sent with the 488 END message when a Control Z is found in the file, then the program 
returns control to the console. This can be useful for text files that are terminated by 
a Control Z. If no option code is selected, the entire file is sent followed by a null 
with the 488 END message, then control is returned to the console. The program may 
be aborted at any time by typing Control C on the console. 

Error messages are printed on the console if there is no Listener on the bus, if 
the file is not on the disk, or if an invalid option code is selected. In each case the 
program is aborted and control is returned to the console. 



If you have two systems and want to send a file from one to the other via the 
488 bus, you would type 

488TODSK filename. ext E<CR> 
on the system which is to receive the file, and 

DSKT0488 filename .ext<CR> 
on the one which is sending the file. (It is not necessary to use the same file name or 
extension.) Note that the system receiving the file must be started first, otherwise the 
first byte of the file will be lost or the sending system will complain that there are no 
listeners. 
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HANDSHAK 

The source file HANDSHAK. ASM is actually two subroutines: a routine for Source 
handshake and a routine for Acceptor handshake. These routines can be useful in special 
applications where it is desired to use the S — 100 system as a Talk Only or Listen Only 
device, or where increased data rate on the 488 bus is needed. These routines are 
capable of running much faster than the larger Custom System, CPM488 or 488BAS 
routines because the larger routines check for the existance of another Controller on the 
bus, check for excessive time in the handshake cycle, and many other things. 

Refer to the chapter titled Hardware Description in the P&T-488 manual for 
information about the bit mapping of the ports and the 488 bus lines. 



SAMPLHS 

This file contains the source code for a routine which uses the Source, Acceptor 
and Initialization subroutines in HANDSHAK to take data from the IEEE-488 bus and 
display it on the console. 



CP/M AUX-5 



P&T-488 



CP/M AuxilMary Software 



************************************************************** 

Source and Acceptor Handshake listings 
* * * *********************************************** 



ISRPT 


EQU 


7CH 


CMDPT 


EQU 


ISRPT+1 


DATPT 


EQU 


ISRPT+2 


PPORT 


EQU 


ISRPT+3 


MONITR 


SET 





CPMIO 


SET 


5 


CR 


SET 


0DH 


LF 


SET 


0AH 


ES 


SET 


'$' 


BUFPRN 


SET 
TALK 


9 


TLKT: 


LDA 


GIMTC 




ORI 


8 




STA 


GIMTC 



;CP/M warmstart entry 
;CP/M I/O entry point 

;ASCII carriage return 

; ASCII line feed 

;CP/M buffered print string terminator 

;CP/M fen. number for buffered print 



get the image of the byte last sent 

to the command line port 
make sure that ATN is false (high) 

when do source handshake 



************************************************************** 
SOURCE HANDSHAKE 

This routine takes the byte in memory location CHAR and says 
it on the 488 bus as a Talker. If either the S-100 RESET 
or Power On Clear line is or has been true, or if the 
488 ATN or IFC lines are or have been true, then an error 
message is printed and the routine jumps to the system 
monitor. 

************************************************************** 



SRCHS: 



SRC1: 



LDA 


GIMTC 


ORI 


60H 


CALL 


COMND 


CALL 


INTRPT 


JNZ 


BYE 


IN 


CMDPT 


CMA 




AN I 


60H 


JZ 


NOLSN 


AN I 


40H 


JNZ 


SRC1 


LDA 


CHAR 


CMA 





;get 488 command line image 
;set NRFD f NDAC high (false) 

check for POC, ATN or IFC 
..abort if POC, ATN or IFC true 
see if there are any listeners 

check only NRFD, NDAC 

. .no listeners error 

wait until NRFD is high (false) 

?get the data byte 

?488 uses negative logic 
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;make DAV true (low) 

;check for POC, ATN or IFC 

;.. abort if POC, ATN or IFC true 

;look at NDAC line 
;...data not accepted yet 

;make DAV & EOI false (high) 

;make all data lines passive false 

******************************************* 
ACCEPTOR HANDSHAKE 

This routine gets one byte from the 488 bus and returns with 
it in register A. If either the S-100 RESET or Power On 
Clear line is or has been true, or if the 488 ATN or IFC 
lines are or have been true f then an error message is printed 
and the routine jumps to the system monitor. 

************************************************************** 



P&T-488 








OUT 


DATPT 




LDA 


GIMTC 




AN I 


7PH 




CALL 


COMND 


SRC2: 


CALL 


INTRPT 




JNZ 


BYE 




IN 


CMDPT 




ANI 


20H 




JZ 


SRC2 




LDA 


GIMTC 




ORI 


81H 




CALL 


COMND 




MVI 


A,0FFH 




OUT 


DATPT 




RET 





ACEPT1: 



ACEPTR: LDA 
ORI 
ANI 
CALL 
LDA 
ORI 
CALL 
CALL 
JNZ 
IN 
ANI 
JNZ 
IN 
CMA 
MOV 
LDA 
ORI 
ANI 
CALL 
CALL 
JNZ 
IN 
ANI 
JZ 
LDA 
ANI 



ACEPT2: 



GIMTC 

8 

9FH 

COMND 

GIMTC 

40H 

COMND 

INTRPT 

BYE 

CMDPT 

80H 

ACEPT1 

DATPT 

D,A 

GIMTC 

20H 

0BFH 

COMND 

INTRPT 

BYE 

CMDPT 

80H 

ACEPT2 

GIMTC 

9FH 



;make ATN false 

; and NRFD true, NDAC true 



;now make NRFD false 

see if received POC, ATN or IFC 
. .abort 
look at DAV 

. .DAV still false 

get the data 

488 uses negative logic 

keep the data in register D 

;NDAC false 
;NRFD true 



; . .abort 

;wait for DAV false 

; . . .DAV still true 

;NRFD true, NDAC true 
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CALL 

MOV 

RET 



COMND 



;put the data back in register A 



Initialize 488 board 

This routine should be called after every S-100 RESET or 
Power On Clear 



INIT: 



MVI 

OUT 

OUT 

CALL 

SUB 

OUT 

STA 

STA 

RET 



A,0FFH 

PPORT 

DATPT 

COMND 

A 

ISRPT 

RETCOD 

CHAR 



clear parallel poll response port 
and 488 data port 
and 488 control lines and image byte 

clear Interrupt Service Register 
clear return code 
and CHAR 



COMND keeps track of the last byte that was output to the 
command port. It is necessary to keep track of what the 
P&T-488 interface board is asserting on the bus because 
the 488 bus is an open-collector wire-or system, so it is 
not possible to determine what the P&T-488 is asserting 
on the 488 bus by merely sensing the 488 lines. 



COMND : 



STA 
OUT 
RET 



GIMTC ; update the 4 88 command line image 
CMDPT ?put it on the command lines 



Check for interrupt due to ATN, IFC or POC 

NOTE: This function does not reset the interrupts in the 
Interrupt Service Register (ISR) 



INTRPT: IN 
RAR 
CNC 

RAR 
RAR 
RAR 
CNC 
RAR 
CNC 
LDA 
AN I 
RET 



ISRPT 
I POC 



I ATN 

I IFC 

RETCOD 

0F0H 



look at the interrupt service register 

put POC bit in carry 

..set POC bit in return code byte if 

no carry 
REN > CARRY 
SRQ > CARRY 
ATN > CARRY 
. .set the XATN bit 
IFC > CARRY 
. .set the XIFC bit 

;look at only POC, IFC and ATN 



I POC: 



I COM: 



PUSH 

LDA 

ORI 

STA 

POP 



A 

RETCOD 

80H 

RETCOD 

A 



;restore reg A and carry 
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RET 



IATN: 



IIFC: 



BYE: 



NOLSN: 



ERROR: 



PRINT : 



PUSH 


A 


LDA 


RETCOD 


ORI 


20H 


JMP 


ICOM 


PUSH 


A 


LDA 


RETCOD 


ORI 


40H 


JMP 


ICOM 



Print the reason for aborting then jump to the monitor 



;save the error code 
;power on clear 



;get the error code again 
;XIFC 

;XATN- 



No listeners present - print error message then 
jump to the monitor 

LXI D,MS1 ;print no listener msg 

Print error message and return to monitor 



PUSH 


PSW 


LXI 


D,MS2 


ANI 


80H 


CNZ 


PRINT 


POP 


PSW 


PUSH 


PSW 


LXI 


D,MS3 


ANI 


40H 


CNZ 


PRINT 


POP 


PSW 


LXI 


D,MS4 


ANI 


20H 


CNZ 


PRINT 


JMP 


MONITR 



CALL 
JMP 



PRINT 
MONITR 



print the line pointed to by DE 



MVI 

CALL 
RET 



C,BUFPRN 
CPMIO 



GIMTC: 

CHAR: 

RETCOD: 

MSI: 
MS2: 
MS3: 
MS4: 



DB 
DB 
DB 

DB 
DB 
DB 
DB 









; image of last byte sent to CMDPT 
;a byte containing the error code 



'No listeners on the bus ' ,CR,LF,ES 

'S-100 POWER ON CLEAR or RESET' ,CR,LF,ES 

'Another 488 Controller is asserting IFC true ' ,CR f LF,ES 

'Another 488 Controller is asserting ATN true ' ,CR,LF,ES 
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********************************************************** 
SAMPLHS s ASM 

This program uses the Acceptor handsahke routine to get a 
data byte from the IEEE-488 bus and display it on the 
system console, 

******************************************************* * * * * * ** 



ORG 



100H 



;CP/M warmstart entry point 
;CP/M I/O routine entry point 

CP/M function code for console input 
CP/M function code for console output 
CP/M function code for console status 

;initialize stack pointer 
.•initialize the P&T-488 card 
;get a byte from the 488 bus 
;put it in register E for CP/M 
;function to print on console 
;CP/M I/O routine entry point 
;look to see if a key is pressed 



; . .no key pressed 
;get the key 

CONTROL C? 

•.no, so continue getting data 

from the bus 
..yes, so do a warmstart 

********************* * * * ************************************** 

Insert the Handshake routines here 
************************************************* * * * * * * * * * * * * * 

END 



MONITR 


SET 





CPMIO 


SET 


5 


GETCHR 


SET 


1 ; 


PUTCHR 


SET 


2 


CONSTAT 


SET 


11 




LXI 


SP,2000H 




CALL 


INIT 


LOOP: 


CALL 


ACEPTR 




MOV 


E,A 




MVI 


C, PUTCHR 




CALL 


CPMIO 




MVI 


C, CONSTAT 




CALL 


CPMIO 




AN I 


1 




JZ 


LOOP 




MVI 


C, GETCHR 




CALL 


CPMIO 




CPI 


3 




JNZ 


LOOP 




JMP 


MONITR 
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M 




DsJ 



K 



H p^H 



B 



04 



10 



266 



266 



3446 



3446 



3446 



3446 



32 



4015 



74 



74 



08 



l 1 . ,l 



IBIIIII 



> 


374 




> 


374 




> 


374 




> 


139 1 




> 


367 1 






> 


02 




> 


74 1 




> 


74 1 




> 


04 1 




VRI 



367 



367 



367 



367 



367 



367 



133 



74 



08 



74 



M 



K 



H 



B 



P a T 488 REV. 8IA 



All 



JjlL 



PDBIN [7^>- 
SINP [7§>- 



PWR [?7>- 
S 0UT(4|>- 



I£>- 



a 6 m>- 



A 5 H>- 
A 4 gS>" 



A 3 
A 2 



&~ 



A| (§§>- 

a EI>- 



D 2 El>- 



RESET (3>- 

POC m>- 




JH4 
•4T<03_ 



rj o Q * 10 cm - 

t-J z o o < u. > •-« o o o o 
xh-ocu.oo:<o»Hi-4i-.»^ 

CO<0)«-<ZZQliJQQQQ 



+5 

i 



488 DATA 




=jir> 




^ 



H>- 




3B^ 



A\B\C\D\E\F 



6 5 4 3 2 1 



7?7 



a 



WRITE 



J3 



^=fe> 




vi? E>-o 

vTT H>-o 

vi2 E>-o 

VI3 [Z>-0 »* T ERRUPT 

PATCH 

VI4 GO-O JVREA 

VI5 H>-0 ° 

Vl6 Q5>-o 

vi7 GO-o 

NM1 E>-0 

pInt E^-o 



4880ATA 



POLL 
M3 



JF-Tjn 



488 
DATA 



L3 
CL OE 



l^Y 



i^i^ 



^ 




13^211 



I2,I8THRU 24 



488 
COMMAND 



K3 
CL OE 



12 NDAC 



5 IFC 



2ATN 
15 



H 



I 



fe^ 



2 R T1. 

C Qq Q t Q2 | / ' 7 



(h 2 |cQ Q| Q 2 



*"E 



R 7?7 




C4 18 CAPACITORS 
O.lwF o.IaiF EACH 



isM2 15 12 



Dl D2 D3 D4 D5 D6 D7 D8 

488 BUS 

— o o 

MZOzo<l*-> 

F"P 





488 COMMAND READ 



INTERRUPT STATUS READ 



INT. LATCHES RESET STROBE 



ZJ 



C2I 
O.lpF 




OQOOOOOZCON-tOin 

zzzzzzzujoooo 
ooocdoooo:»-«i-ii-«i-i 

Q Q O Q 



488 BUS 



INTERRUPT STATUS READ 



£fe 



+5 

RI91 

"I 



RESET + POC 



H3 



l^JJL^ 



C3 




■hr£^^rijr^ 



C4 



F2 

HE 



31 



FZ 



^r 



GI> DI7 

-g£> DI6 
-§£> D15 



-E> DI4 
-®> DI3 



-|4j> DI2 



•K) 



JjK**- 



• DENOTES OPEN COLLECTOR 
[X> DENOTES S-100 BUS CONNECTOR 
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E2 
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s^ 



PICKLES & TROUT 

P. O. BOX 1206, GOLETA, CA 931 16, (805) 685-4641 



D 



f 



